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Preface 


This is Volume 1 of the IBM 4700 Programming Library - one of a set of six 
volumes for the 4700 programmer. Figure 0-1 on page v summarizes the topics 
covered in the other volumes. All six volumes are available from your IBM 
representative or local branch office under a single order number (GBOF-1387). 
You will need these volumes if you are developing programs, writing program 
extensions, or modifying existing programs in the 4700 Assembler Language. 


This book -- Volume 1: General Controller Programming -- introduces key 
programming concepts you need to understand, such as how storage is allocated 
and how programs can be invoked. This volume also describes the fundamental 
instructions that form the basis of a typical controller application program. The 
instructions described in Volume 1 perform basic operations such as adding, 
subtracting, defining, comparing, and moving data. 


Who Should Read This Book 


Anyone doing any 4700 Assembler programming will need this book because it 
contains the instructions that are required in all 4700 programming. 


How This Book Is Organized 


What Else To Read 


This book begins with some introductory material about the 4700. It will help you. 
understand how the 4700 operates from a programming point of view. Following 
the introduction we have grouped instructions according to the overall function 
they perform, such as data definition and program control, for the purpose of 
introducing them to the reader. The instructions themselves are arranged 
alphabetically. We have started each instruction description on a separate page, 
so that you can reorganize the descriptions in whatever order you later find most 
useful. 


The first five volumes of 4700 Programming Library describe the 4700 Assembler 
Language and explain how you use it. The sixth volume explains how you 
generate a control program -- CPGEN -- for the controller. 


You must generate a control program even if you are not writing your application 
program in the 4700 Assembler Language. If you are not using the 4700 
Assembler Language, you need only the sixth volume. But we recommend you 
review the other volumes too. They describe many concepts that will enhance 
your understanding of the sixth volume. 


The following is a summary of what you'll find in each volume. 
Volume 2 -- Disk and Diskette Programming explains how you organize files for 
the controller disks and diskettes, and how your program gains access to these 


files. Both the basic access method and the extended access method are 
described. 
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Volume 3 -- Communication Programming shows how your. program can | 
communicate with a host computer. Two communication protocols are described: 
Binary Synchronous Communication (BSC) and Systems Network Architecture 
(SNA). 


Volume 4 -- Loop and Device Cluster Adapter (DCA) Device Programming explains 
how your program controls and exchanges data with the terminals attached to the 
controller. Protocols for: both loop-attached ‘oemnals and for DCA-attached 
terminals are discussed. , 


Volume 5 -- Cryptographic Programming describes the cryptographic facilities 
that are available in the controller and in the 4704 encrypting Personal | 
Identification Number (PIN) Rey pee : oo 


Volume 6 -- Control Program Ceneraion tells you how to define each controller’s 
resources (application programs, storage, and terminals) and specify how they are 
to be related. If you do not wish to generate the control program at the host 
computer, Volume 6 tells you how you can generate the control program at the 
controller. 


The 4700 Assembler Language is the basic programming language of the 4701 
Controller. If you are writing programs in a higher-level language (COBOL) or 
are using IBM-written programs in your controller, see the publications for those 
products. A brief description of these products and their associated publications 
appears in the [BM 4700 System Summary, GC31-2016. 
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VOLUME 1: GENERAL CONTROLLER PROGRAMMING (GC31-2066) 


¢ Programming Concepts 

e Using the General Programming Instructions 

¢« Coding Rules 

General Programming Instructions (Reference) 
General Machine Instruction Formats 

e Parameter List Reference 

Status Codes, Program Check Codes, and Error Messages 
Programming Techniques for 3600 Compatibility 


= 


Figure 0-1. 4700 Controller Programming Library (GBOF-1387) 
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Summary of Amendments 


| GC31-2066-1 (January, 1984) 


This edition reflects the following Release 3 changes: 


e The addition of dynamic management of main storage including two new 
instructions: SEGALLOC and SEGFREE 


¢« Two instructions - Address List (ADRLST) and Indexed Return (IRETURN) 
that provide new return capability following a branch-and-link operation. 


Significant changes and additions to this manual are marked with the same change 
bars that you see at the left of this summary. 


Summary of Amendments Vii 
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Chapter 1. Introduction 


The IBM 4700 Finance Communication System is a family of telecommunication 
products designed for financial institutions and their branches. A typical 4700 
system is made up of devices and programs that allow processing to be distributed 
through the network rather than concentrated at the central site. Message 
processing and terminal control at a finance communication controller enable the 
central site to provide support for larger and more complex networks, because less 
central-site processing is required for each terminal. The processing capabilities of 
the controller also enable branch operations to continue during failures at the 
central site or in the communication network. Figure 1-1 shows a sample 4700 
system. 


Host Processor 


OS VS or DOS VSE 
4700 
Library 
Application 
VSAM 
TCAM Program 
VTAM Data 
Base 
3704 or 3705 3704 or 3705 


Communication 
Controller or 
Multi-Use 
Attachment Loop 


Communication 
Controller or 
Multi-Use 
Attachment Loop 


Finance 
Communication 
System 


Finance 


Communication 
System 


Finance 
Communication 


System 


3614/24 Consumer 
Transaction 
Facility 


4700 Subsystem Direct 
4701 Finance Attach 
Communication Controller 
Application 
Program 3262 
3278 
3289 


Local 
Loop 


Remote Loop 


3614/24 


Terminal 


Terminal 


3614/24 


a aac es ee 
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Figure 1-1. The 4700 Finance Communication System 
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The Controller 


The 4700 Terminals 


The Network 


The IBM 4701 Controller is a programmable controller that uses application 
programs, provided by the using institution, to control terminals, process data, and 
transfer data to the central site. Terminals are attached to the controller either 
directly, or by a local or remote loop. The controller may be connected to a host 


processor by several means that are described in Volume 3: Communication 


Programming. . ee _ * 


_ The terminals that attach to the controller of a 4700 system are a keyboard 


display, financial services terminals, document and passbook printers, a consumer 
transaction facility, and several terminals and line printers. Most of the terminals 
are available in more than one model, providing choices in display size, keyboard 
size and arrangement, and character sets and printing speeds. 


These terminals and a terminal attachment unit that provide telecommunications 


line connection facilities for 4700 terminals are discussed in Volume 4. 


The 4700 terminals are: 


IBM 4704 Display 

IBM 4710 Receipt/ Validation Printer 

IBM 4720 Forms/Passbook Printer 

IBM 3604 Display | | 

IBM 3606 Financial Services Terminal 

IBM 3608 Printing Financial Services Terminal 
IBM 3610 Document Printer 

IBM 3611 Passbook Printer 

IBM 3612 Passbook and Document Printer 
IBM 3614 and 3624 Consumer Transaction Facilities 
IBM 3615 Administrative Terminal Printer 
IBM 3616 Passbook and Document Printer 
IBM 3262 Line Printer | 

IBM 3278 Display. 

IBM 3279 Display 

IBM 3287 Printer 


The IBM 3603 Terminal Attachment Unit provides telecommunication line 
connection facilities for the Financial Services Terminals and other devices. With 
customer-provided data access arrangements, the 3603 provides manual dial 
backup capability (over a switched network) to enable you to restore 
communications if the normal telecommunication line fails. The 3603 is designed 
for unattended operation and has no impact on programming support. 


The 4700 controller attaches to the host system either directly or on dedicated 
(leased) or switched lines. You can use: Binary Synchronous Control (BSC3); 
Systems Network Architecture / Synchronous Data Link Control (SNA/SDLC); 
CCITT Recommendation X.21; or the 4331 Multiuse Communication Loop 
protocol. Depending on which protocol is used, the type of link can be either 
point-to-point or multipoint full-duplex. 


You will find additional information on this subject in Volume 3: Communication 
Programming. 
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Controller Operation 


Programming the 4700 


You can operate the controller independently of the central processor. You start 
the controller by a load operation that, along with many other operations, is 
carried out at the controller using a facility called the system monitor. The system 
monitor is used by the control operator, who, depending on the circumstances, may 
be one of the branch personnel, an application programmer, or a customer 
engineer. Information about using the system monitor is in the IBM 4700 
Finance Communication System: Subsystem Operating Procedures. 


You load the controller from a diskette, either the one provided by IBM, referred 
to as the installation diskette, or one you created, referred to as the operating 
diskette. The primary function of the installation diskette is to allow you to create 
an operating diskette. An operating diskette contains application programs and 
information to tailor the controller to your needs. 


Two configuration procedures are available. One is performed on a host system 
using the IBM 4700 Host Support (Licensed Program 5668-989) and the other, 
called the Local Configuration Facility (LCF), runs in the controller. 


You must describe your 4700 system using one of the controller configuration 
procedures. These specifications include information such as: a description of the 
physical controller, its communication links, and its terminals; and a description of 
the programming environment to be used. 


With the information specified in the configuration procedure as a reference, you 
can use a 4700 programming language to write an application program. 4700 
programming languages consist of symbolic instructions and statements that 
define data and that become machine instructions. 


You can combine configuration data and application programs in a host system 
and transmit them to the controller to create operating diskettes. You can 
combine application programs from a disk with configuration data from a diskette 
to create an operating diskette. You can also transmit controller application 
programs, without the configuration data, to a controller to replace the current 
program set on a disk or diskette. 


You can also create operating diskettes at the controller by combining 
LCF-generated configuration data with assembled application programs. 


You can copy application programs from disks and diskettes to disks and 
diskettes. 


The IBM 4700 Finance Communication System is programmable in ways that are 
similar to other computing systems. It can be programmed in it’s own assembler 
language, or in COBOL (COmmon Business Oriented Language) a popular 
programming language for business data processing. — 


The succeeding sections of this chapter describe, in general terms, 4700 


application programs; main storage and how it can be used by application 
programs; and the concept of a 4700 Logical Work Station. 
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Application Programs 


Main Storage 


You may choose to write your own application program or to select from those 
that are available from IBM. If you choose to write your own application program 
it may be subdivided and be written in a combination of the two languages 


-mentioned above, that is, part of the program coded in 4700 assembler language 


and part of it coded in COBOL. You may also separate the program into pieces 
so that more than one programmer can be assigned or so that sections can be 
coded at different times. In fact, the organization of the 4700 Programming 
Library reflects this ability by separating disk and diskette programming from host 
communication programming and from terminal programming. 


In the IBM 4700 Finance Communication System an application program is 
assigned an amount of main storage and some of the controller’s terminals. This 
combination of an application program, main storage, and terminals, is called a 
Logical Work Station. One application program can service more than one logical 
work station, each work station having it’s own terminals and it’s own storage. 


The logical work station, application programs, and controller main storage will be 
described in more detail in later sections and chapters. 


4700 controller main storage will, in general, be used in the following ways: some 
of it will be used by system functions; some for tables that define the system 
configuration, and some will be assigned to logical work stations. The amounts of 
main storage required for each one of these will depend on factors such as; the 
functions the system is to perform, the numbers and types of terminals, the sizes 
of application programs, and the amounts of data to be processed. All of these 


_ factors will be described in this, and in other volumes of the 4700 Programming 


Library. 


Our primary interest, in this book, is in storage allocated to a logical work station 
because it is directly related to writing an application program. 


The 4700 allocates main storage from storage pools. Storage pools are collections 


of areas of storage that can be assigned to logical work stations upon request. 


There are two different types of storage pools in the 4700: pools that are shared 
by all logical work stations and pools that are owned by one logical work station 
or shared by a selected group of logical work stations. Chapters 2, 3, and 5 
contain more information about main storage pools. 


Main storage can be used as private or as shared storage after it has been assigned 
to a work station. | 7 


e Private storage is available only to a single logical work station. This assures 
that information concerning a transaction being processed by a logical work 
station will not be affected by transactions being processed by other logical 
work stations. It also assures that one logical work station will not have 
access to data it does not need. 7 . 
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The Logical Work Station 


¢ Shared storage is available to some or all logical work stations. You might use 
shared storage to transfer an account deposit from a teller logical work station 
to an account-posting logical work station, or to provide space for information 
such as a list of overdrawn checking accounts. 


Logical work station storage is divided into units called segments. Each logical 
work station has one segment that contains registers. Another segment contains 
groups of data fields that provide communication between the controller and 
logical work stations. The remaining segments are used for data buffers and work 
areas. 


Storage segments are numbered 0 through 15. Segments numbered 0 through 12 
are the private storage segments that can be allocated to each logical work station. 
Segment 13 can be private or shared; Segment 14 always contains an application 
program; and Segment 15 can be shared among all logical work stations. There 
can be only one Segment 15 in a system configuration. All of these concepts of 
4700 main storage will be further described later. 


The 4700 performs work for a conceptual unit called a logical work station. A 


logical work station is, as we saw earlier, main storage, one or more terminals, and _ 


a controller application program. As many as 60 logical work stations can exist in 
a controller (depending on installation requirements and available storage). All 
logical work stations have access to disk and diskette drives, to communication 
links, and to terminals. 


The controller allocates processing time to, or dispatches, each logical work station 
in several ways that will be described in this book. When an application program 
is running on behalf of a logical work station, it can perform various tasks for the 
financial institution. For example, a commercial bank can have four logical work 
stations for savings and demand deposit, two for loans, and two for account 
inquiry. To keep the transaction data separated, each logical work station is given 
a separate portion of storage. An application program can be shared by more 
than one logical work station. | 


Therefore, one could write three application programs: one for savings and 
demand deposit, one for loans, and one for account inquiry. 


The remainder of this manual provides the information needed to design and code 
a 4700 assembler application program. 


The earlier chapters discuss programming considerations such as: selecting a 
program structure; calling other programs from your program; and designing your 
program to be called by other programs. They also describe the actual program 
functions and instructions by categories such as data operations, arithmetic and 
logical operations, and program control. 


The later chapters describe the coding and syntax rules, and the 4700 general 


controller instructions in detail. Topics such as program checks, status codes, and 
error messages are in appendixes at the back of this manual. 


Chapter 1. Introduction 1-5 
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Chapter 2. Coding Considerations 


Contents and Purpose 


This chapter contains information about the major concepts of 4700 
programming: 


e several different ways in which you can organize your program 
¢ getting storage and using it 

¢ addressing data 

¢ getting control of the controller. 


The purpose of this chapter is to introduce these concepts to you and to help you 
begin to know: how the system is designed; what it can do for you; and what you 
can do with it. 


Application Program Organization 


The IBM 4700 Finance Communication System provides several ways to organize 
application programs allowing you to place functions or tasks in different parts of 
the program; to assign these parts to several programmers; or to implement the 
parts at different times. 


The ways in which you can organize a 4700 application program are: 


e Nonrelocatable Programs - programs that have only one part; that is, they are 
completely contained in one assembly. 


e Relocatable Programs - programs made up of sections that can be assembled 
separately and are link-edited together. 


e Call Programming - writing complete programs that are assembled separately 
and that invoke, that is ‘call’ other programs or are ‘called’ by other programs. 


e Subroutine Programming - writing routines to which the main program can 
branch. 


e Overlay Programming - writing program sections that can be loaded when 
required. 


e Copy Files - sets of instructions that can be assembled into programs or 
sections. 


A non-relocatable program is one assembly containing an entire program. It is the 
least difficult to understand and use but it also offers the least flexibility. Any 
change to the program, during development or later, requires that the entire 
program be reassembled. 


A relocatable application program is coded in sections that will be link-edited 


together by the Host Support. The sections can either be assembled together or 
assembled separately. 
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Nonrelocatable Programs 


Call programming allows you to divide work into distinct tasks and to write a 
separate program for each task. To use this facility you must have a primary 
application program that calls secondary application programs. The primary 
application program must be associated with a logical work station in the 
configuration specifications. Programs to be called may be resident in main 
storage or they may be transient, that is; they are on a disk or diskette. 


Subroutine programming is a well known technique for coding program functions 
that are required more than once. For example, you might write a subroutine to 
handle all disk and diskette operations. 


Overlay programming is generally used when available storage is insufficient for 
an application. In this situation you can use one area of storage for multiple parts 
of the program when the functions to be performed are somewhat independent of 
each other. For example, one overlay could receive data from an automated teller 
terminal; leave it in an area of storage; and a second overlay could send the data 
to a host system. 


Copy files are useful in reproducing sets of instructions in more than one 
assembly. For example, when 2 programmers are coding related programs and 
both programs need access to a common data area that can be defined by one set 
of data definition instructions. The data definition instructions can be created 
once and then ‘copied’ into the appropriate assemblies. 


Each controller application program includes: 


« A BEGIN instruction, which defines the beginning of the application root and 
builds an application program header that is used by the linkage editor. 


« A FINISH instruction that defines the end of the application root. 


The BEGIN instruction is usually followed by equates, constants, and data field 
instructions. These are grouped together to make them easier to find. 
Instructions that become data must be placed so that they do not interfere with 
executable machine instructions. 


Each application program section, other than the root, must begin and end with a 
SEGCODE-ENDSEG or an OVLYSEC-ENDOVLY pair. 


The simplest form of a 4700 application program is one in which the entire 
program is contained in one assembly. These are usually called ’non-relocatable’ 
programs because there are no parts to arrange before they are loaded into 
storage. Nonrelocatable programs are preceded by an APOPT instruction that 
either omits the RELOC operand or specifies RELOC=N. The following shows 
how a non-relocatable application program can be organized. 


APOPT RELOC=N 
BEGIN 
Data Definition and Machine Instructions 
FINISH 
END 
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Relocatable Programs 


Call Programming 


A relocatable application program is coded in sections that will be linkage edited 
together by the Host Support. ‘Relocatable’ means that program sections will be 
placed in order by the linkage editor and that references to data and instructions 
between sections will be resolved. The application program module being 
assembled must begin with an APOPT instruction that specifies RELOC=Y. 


Each relocatable application program must include a root section, and may 
include other sections. You must use the following instructions to define 
application program sections. 


« A BEGIN instruction, to name a root section. 
« A FINISH instruction, to define the end of a root section. 


« A SEGCODE instruction, to name a section and identify the beginning of a 
section. 


« An ENDSEG instruction, to define the end of a section. 


¢« An OVLYSEC instruction, to name a section and identify it as an overlay 
section. 


« An ENDOVLY instruction, to define the end of an overlay section. 


Instructions that appear between BEGIN-FINISH, OVLYSEC-ENDOVLY, and 
SEGCODE-ENDSEG instruction pairs are recognized by the Host Support. If an 
assembly is attempted where instructions appear outside an application section, 
Host Support will not process the assembly. 


The following shows how a relocatable program can be organized. 


APOPT RELOC=Y 
BEGIN 

Instructions 
FINISH 
END 


APOPT RELOC=Y 
SEGCODE 

Instructions 
ENDSEG 
END 


The term ‘call’ programming simply means that application programs can invoke 
other application programs. This allows you to assign tasks to small, independent, 
but interconnected programs. When running in the controller, each program can 
have its own allocated segment storage, can share segment storage, or both. 


AS we Saw earlier, programs can be written in either of the 2 available languages 


(Assembler and COBOL). You'll find the instructions that you can use in later 
chapters. Assembler programs can invoke other assembler programs using the 
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Subroutine Programming 


Overlay Programming 


APCALL instruction, or they can use the COBLCALL instruction to call 
COBOL programs. COBOL programs can also invoke Assembler programs. 


The first program that operates on behalf of a logical work station is the primary 
application program; any program invoked by that program or by any other 
program is termed a called, or a secondary application program. Later we will also 


use the term ‘current’ application which means the program that is in control of 


the logical work station. 


Application programs may be ‘resident’, that is, they are in main storage; or they 
may be ‘transient’ which means that they are on a disk or diskette. 


For example: you might write four programs: one program to handle overall 
branch office operations; one program to take care of real-time customer activity; 
one to send account transaction data to a host computer at your home office; and 
one to save account transactions on a disk. The overall branch office program 
might: 


determine that a teller has a customer deposit and ‘call’ the customer activity 
program; 


determine that the host link is currently not available; 


‘call’ the disk program to save the transaction data so that it can be sent to the 
host at a later time. | 


You can write subroutines to perform discrete functions rather than repeating 
sequences of instructions in your program. The 4700 has branch-and-link 
facilities that allow you to pass control to a subroutine. You can also return 
control to the point at which your program invoked the subroutine. The 
instructions that you can use are BRANL (Branch and Link); BRANLR (Branch 
and Link Register); and LRETURN. 


You must code a root section of an overlay program that remains in main storage 
at all times. One of its functions must be to cause the non-resident sections to be 
brought from disk or diskette into main storage as they are needed. 


If the application is written in overlays, the overlay sections themselves may be 


subdivided into sections. The overlay sections and subsections may be assembled 


separately, together, or in some combination. with a root section. 


You will find the instructions you can use to write overlay programs among the 
detailed descriptions later in this book. Specifically, they are: Define an Overlay 
Section (OVLYSEC); Start an Overlay (STOVLY); End an Overlay 
(ENDOVLY); and Load an Overlay Section (LLOAD). 
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Nested Overlay Sections 


Shared Overlay Sections 


Nonrelocatable Overlays 


Relocatable Overlays 


Using Copy Files 


The instructions used for overlay programming are: 


e LLOAD, which loads the specified application overlay and is in the calling 
routine. 


e STOVLY, which identifies the load point (origin address) of the specified 
application overlay. 


e OVLYSEC, which defines the beginning of the application overlay and may 
define the entry point of the overlay. It is the first instruction in the overlay 
section. 


« ENDOVLY, which defines the end of the overlay section. 


If the application overlay is assembled as relocatable, the following instructions 
may also be used: 


« SEGCODE, which defines the beginning of a section that may be added to 
the overlay section to form a complete application overlay. 


« ENDSEG, which defines the end of aSEGCODE section. 


If the controller application program includes application overlays, the first 
section in each application overlay must begin with an OVLYSEC instruction and 
end with an ENDOLVY instruction. The remaining sections in the application 
overlay are those defined by the SEGCODE/ENDSEG instruction pairs. The 
link-edit function of the Host Support Program resolves all addresses so that the 
completed application overlay begins at the address of the overlay load point (the 
STOVLY instruction) and is addressed consecutively. 


The controller application program may be organized so that nested application 
overlays are used; that is, one overlay can load another overlay. 


Your program must handle application overlay areas so that one logical work 
station does not load an overlay into an overlay area being used by another logical 
work station. 


Nonrelocatable application overlays are assembled with the application program 
root but can be loaded individually. 


Relocatable application overlays are similar to nonrelocatable overlays except that 
they can be assembled separately. 


Copy files are purely a program assembly facility. You must define a copy file 
and add it to your macro library in the host system before it can be used by the 
assembler. When the assembler encounters a COPY instruction it simply inserts 
all of the contents of the copy file at the point where it found the COPY 
instruction. 
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Programming Notes 


Here are several things that you should know about writing application programs 
that have not been described previously. 


Referencing Labels Between Sections 


Application program sections can refer to labels outside themselves without being 
assembled together, by using EXTRN statements. If you need to refer to a label 
that is not defined in this section, you must identify it as an external label with an 
EXTRN instruction. Another application program section must define the label 
and identify it with an ENTRY instruction. If these sections are assembled 
together ENTRY and EXTRN will have no effect; however, you should use these 
instructions so that you will have the flexibility of being able to assemble the 
sections separately. ENTRY and EXTRN instructions may appear anywhere 
within the appropriate application program sections. _ 


Dummy Sections 


4700 Assembler Language provides two ways in which you can code a program 
section that refers to (or uses) data in an area of storage defined in some other 
section. One way is by a SECTION DUMMY instruction and the other is by an 
LDSECT (Dummy Section) function. Although they are similar, the LDSECT 
function offers more flexibility and is the basis for some of the data addressing 
functions. 


Using the SECTION DUMMY instruction, you can refer to, for example, 
constants that have been defined in the root section of the program. This may 
sound like the EXTRN and ENTRY description but it differs in that SECTION 
DUMMY allows you to refer to an entire data area having many labels, not just a 
few labels in another section. | 


By using the DEFRF and/or LDSECT instructions you can refer to data areas 
defined by other sections and other programs. You can dynamically change the 
reference to the data while the program is running and not be required to recode 
or reassemble any of the program. This capability will be described in detail later 
in this chapter. 
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| Main Storage 


| Managing Storage 


The following sections describe three ways that you can manage storage in the 
4700: 


e Describe main storage usage in your configuration specifications. 
e Allow application programs to manage main storage usage dynamically. 
e Use a combination of the above. 


In the following sections, we discuss managing storage in terms of "defining" and 
"allocating" storage. 'Defining'' storage means that you describe an area of 
storage that a work station or your program may need. '' Allocating’ storage 
means that the 4700 assigns an area of storage to an application program or a 
logical work station. 


The term ''segment" simply means an area of main storage that is used for specific 
purposes. Later in this book, we’ll talk more about the number of segments that 
can be used by each work station. For now, we’ll use the number 16, 13 private 
segments and three that can be shared. The purpose of each segment is shown 
below. 


Segment 0 contains the six-byte registers used by your application 
program for arithmetic and logical operations. As shown 
later in this chapter, the program can also use these registers 
for addressing. 


Segment 1 is the SMS (System Machine Segment), an area of storage 
that the system uses for communication with logical work 
stations. 


Segments 2-12 are data storage areas assigned to each work station for 
holding input data, work areas, and output data. 


Segment 13 is a data storage area that can be shared with other primary 
and secondary application programs. 


Segment 14 is the read-only storage area holding the application program. 
It includes constants, machine instructions, and tables. 
Segment 14 can be a shared segment in the sense that the 
application program can service more than one logical work 
station. | 


Segment 15 is the Global Machine Segment (GMS) shared by all 
application programs. 


| Managing Storage by System Configuration 


Your installation can choose to define and allocate main storage exclusively 
within the Control Program Generation specifications. Main storage management 
that is accomplished this way can be called “static”, meaning that storage usage 
can be changed only by modifying and reprocessing your CPGEN. 
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The system configuration process automatically defines and allocates: 


sixteen 6-byte registers (the first 96 bytes of Segment 0) 

e aSystem Machine Segment for each logical work station (Segment 1) 
e Segment 14 for each application program 

e a Global Machine Segment. 


System configuration can also determine the size of the storage pools that will be 
in effect during system operation. 


An important point to remember is that your installation can take a rigid approach 
to storage management by defining storage usage only within system _ 
configuration specifications. If your installation decides to do so, then you may 
not need to be concerned with storage management at all within your program. 
Remember, however, the 4700 allows: 


¢ calling independent programs 
e running more than one program on behalf of a work station. 


If any programs in your controller do these things, you must have some 
understanding of storage management. 


Managing Storage by Application Programming 


The 4700 also provides a dynamic way to allocate storage. This storage 
management function is provided when you include a TRANPL macro in your 
configuration specifications. 


All storage remaining - after requirements for microcode, system configuration 
data, and resident application programs are satisfied - is available for allocation. 
When your application program issues an instruction that requires storage, it is 
allocated from the available space. Storage is returned to the available space 
when your application program issues the appropriate instruction. The 
instructions that allocate space are APCALL (Call an Application Program), 
DTACCESS (Data Access), and SEGALLOC (Segment Allocate). The 
instructions that release space are APRETURN (Return to Calling Program), 
DTAFREE (Data Free), and SEGFREE (Segment Free). 


Storage Refreshability: The 4700 provides for both non-refreshable (read/write) 
and refreshable (read-only) programs. You specify which by the Application 
Program Options (APOPT) instruction. Both kinds of programs can contain 
executable or non-executable instructions. 
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Refreshable means that the program cannot be dynamically modified; that it is 
not an overlay or does not use overlays; and that the 4700 can reuse the storage it 
occupies and reload the program. If you identify a program as refreshable, the 
4700 will not allow it to be modified. 


Non-refreshable means that the program can be dynamically modified and that it 
will remain in main storage until released. 


Refreshable programs must be transient and can only exist in the SYSAP data set. 
These programs will be loaded by the 4700 when another program issues an 
APCALL or DTACCESS instruction. If your program accesses a non-refreshable 
program by means of DTACCESS, the 4700 will load that program into a data 
storage segment; that is, a segment in the range of 2 through 12. Your program 
can address the program that is loaded only by the register address returned by 
the DTACCESS instruction. 


Storage Management by the 4700: When a request for storage is made, the 4700 
will attempt to allocate the space from a storage pool in a series of steps: 


1. Search for an available block of storage that can satisfy the request. 


2. Move segments currently in use in an attempt to consolidate the available 
space. | 


3. Steal the space currently being used by a refreshable area and use this space to 
satisfy the current request for storage. 


If a refreshable area is stolen by storage management it will be automatically 
reloaded when it is referenced again. This reloading may cause degradation in 
application program or system performance. Only areas containing programs that 
are transient and refreshable can be stolen by the system. 


To activate the 4700 to perform steal and refresh operations, you must specify a 

RFSH=Y operand on one of the TRANPL macros in your system configuration. 

See the 4700 Programming Library Volume 6: Control Program Generation for 
further information. 


Storage Pools: The 4700 system allows you to define multiple storage pools to 
tailor the available storage to your specific needs. There are three types of storage 
pools: station pools, the general pool, and segment-class pools. There can be one 
station pool for each station or multiple stations can share a single station pool. 
There is only one general pool. Up to 15 segment-class storage pools can be 
defined. 


Station Pools: Station-pools allow you to reserve storage for a station or group of 
stations. You might define station pools when an application program needs a 
guarantee that a specific amount of storage be available. For example, a station 
pool could be defined for the station which runs the 4700 CNM application. This 
would allow the CNM application to operate as long as no other program is 
operating for this station and no other station is using the same station pool. 


Station pools have the disadvantage that their storage is reserved for a station, or 
group of stations, and cannot be used by other stations even if some is available. 
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You define station pool usage by the TRANPL operand of the STATION macro 
in your system configuration specifications. This pool will be shared only by those 
stations that identify it in your configuration specifications. 


Station pool storage can be used to satisfy both read/write requests and 
refreshable requests. a 


The General Pool: You should assign most available storage to the general pool by 
keeping the station and segment-class pools as small as possible. Any storage not 
assigned to station pools, to segment-class pools or to the microcode trace area is 
automatically assigned to the general pool. You can control the amount of space 
used for the microcode trace area by specifying the TRACE parameter of the 
STARTGEN configuration macro. 


The general pool is shared by all stations. There is no way of excluding a station 
from using the general pool. Storage in the general pool can be used to satisfy 
both read/write requests and refreshable requests. 


A request is satisfied from the general pool if either there is no station pool 
defined for the requesting station or there is insufficient space in the station pool. 
The storage manager will attempt to steal space used by refreshable segments in 
the station pool before attempting to satisfy the request in the general pool. 


Segment-Class Pools: Segment-class pools allow you to reserve storage for a 
particular program or set of programs, independent of the station on which they 
operate. You might specify a segment-class pool for a program which cannot wait 
for storage. For example, you may wish to define a segment-class pool for a 
program which must respond to a request from the host. If you specify the 
segment-class pool large enough to satisfy this program’s storage requirement, and 
it is the only program that uses the segment-class pool, it will never have to wait 
for storage. 


A segment-class pool is defined by specifying the ID= parameter on the TRANPL 
macro in your configuration specifications. 


If there is insufficient space in the general pool to satisfy a request for storage, an 
attempt will be made to allocate it from a segment-class pool. Storage is allocated 
from a segment-class pool to only one station at a time. This station will maintain 
ownership of the pool until all storage has been returned to the segment-class 
pool. A request from any other station for storage from that pool will cause the 
requesting station to be placed into a wait state until the owning station releases 
the pool or storage becomes available in some other pool. | 


Each segment-class pool has an ID in the range 1-15. Segment-class pool 1 is 
used only to satisfy refreshable requests (APCALL for Segment 14 and 
DTACCESS). Segment-class pools 2-15 can only be used to satisfy the 
read/write storage requests for Segments 0 and 2-12. Storage requests by 
DTACCESS and APCALL for non-refreshable programs cannot use 
segment-class pools. Storage requests are associated with a particular 
segment-class pool by specifying the ID= parameter on the DEFSTOR instruction 
or by specifying the segment-class ID in the SEGALLOC parameter list. Your 
application program should not specify segment-class ID 1. 


2-10 4700 Controller Programming Library, Volume 1: General Controller Programming 


Usage of segment-class pools is controlled only by programming protocol. There 
is no enforcement of this protocol by the 4700 controller. If only one program 
specifies a particular segment-class ID, it will always have sufficient space to 
complete its operation independent of storage availability in the other pools. 


Segment-class storage pools reserve space for particular programs. Because this 
may adversely affect performance of other programs, segment-class pools should 
be used with care. Programs that use segment-class pools should attempt to 
minimize their storage requirements so that these pools can be kept as small as 
possible. 


Storage Management Operation: For a given controller, storage pools can be 
defined in any combination. If a particular type of pool is not defined, the next 
type in the hierarchy is used. The steps that the 4700 takes, see “Storage 
Management by the 4700” on page 2-9, to allocate storage are performed at each 
level of the hierarchy. The storage allocation hierarchy is illustrated by the 
following: 


1. If a station pool exists and sufficient space can be found, allocate the space. 
2. If space can be found in the general pool, allocate the space. 


3. If there is a segment-class pool and no program owns this pool and sufficient 
storage can be found, allocate the space. 


4. If there is no segment-class pool for the request or if another program owns 
this pool or if sufficient space cannot be found, 


a. and if the request specified WAIT=N, set the condition code and process 
the next instruction. 


b. if the request specified WAIT=Y, place the station in wait state until 
sufficient space is returned to any pool that can satisfy the request. 


When storage is returned to any pool, the wait list is examined. If any pending 
request can be satisfied, the station is made dispatchable. However, before this 
station is dispatched, some other station (including the one which just released the 
storage) may issue a request for this storage. This may cause the station which 
was waiting to return to its wait for storage. Thus, any wait for storage may be 
indefinite. If multiple stations are requesting storage and none is available, then 
potential for a storage deadlock condition exists. A deadlock condition can be 
avoided by defining segment-class pools that can satisfy the storage requirements 
of your applications. Any storage wait can be broken by pressing the keyboard 
Reset key twice. This will cause the APCALL, DITACCESS or SEGALLOC 
instruction to set a condition code and store attention status in SMSDST. 


| Storage Management by the Controller 


The controller manages storage space for primary and secondary programs when 
you are using call programming, but you determine how this will be accomplished. 
You may choose to use one set of storage segments for both the primary program 
and its secondary programs. If you do, you probably need some conventions to 
determine which programs use which segments, and when. You may also choose 
to allow some or all secondary programs to have their own allocations of storage. 
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Initializing Storage 


Segments allocated to the primary application program and to secondary 
application programs each have a segment space ID. This ID is always 1 for 
segments allocated to the primary application for each logical work station. The 
controller assigns a new segment space ID for segments allocated to each 
secondary application for each logical work station. The current segment space ID 
is the ID of the segments allocated to the current application program. 


Storage may be initialized, or set to specific values before program run time by 


specifying the values either during system CPGEN or within your application 
program. You can use the Start Initialization (SINIT); Initialize Segment 
(INITSEG); and End Initialization (ENDINIT) instructions to accomplish 
segment storage initialization in your program. These instructions are described 
in detail later in this book. 


Allocating Two Sets of Registers 


Shared Storage Control 


When two sets of registers are allocated for a logical work station, the SELECT 
instruction can be used to select the registers as needed. You must set a segment 
select character A or B, designating the correct Segment 0, in Segment 1 before 
you issue SELECT. 


For example, if you allow the operator to enter the keyword ADDR, indicating to 
the program that the operator wants to use the 4704 as an adding machine, you 
might require the program to use registers other than those used for normal 
processing. For this purpose, you must allocate two Segment 0’s. 


There are situations when a logical work station need not be dedicated to one 
operator (for example, back office applications, such as proof). The controller 
permits either keyboard or program selection between identical Segment 0’s (the 
registers and optional storage). For program selection, the program must issue the 
SELECT instruction. SELECT indicates which Segment 0 (A or B) is associated 
with the station, and allows the work station to address that segment. 


Because Segment 15 is accessible to any logical work station, you may need to 
ensure that one station has exclusive control of the segment for a period of time. 
You do this by setting an indicator in the global area that the system can check 
before allowing the station to use the global information or by ensuring that the 
logical work station does not release control of the controller while using global 
storage. 


For example, all stations may be given control during controller startup so that the 
tellers can log on. Before allowing most tellers to log on, however, you may wish 
to ensure that the time and date have been set by one of the tellers. One station 
sets an indicator in the global storage area that remains on until the time-and-date 
dialog is completed. As other stations gain control, their application programs can 
test the indicator and release control until the indicator is off. 
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Addressing Main Storage 


The 4700 addresses data either as the contents of one of 16 registers, or as a field 
within a storage segment. Registers can be addressed either by referring to the 
register number or by referring to the register’s Segment 0 field. The four ways to 
address data in the storage segments are: 


Segment-displacement addressing address a field by specifying the segment 
number, the displacement into the segment, and in some cases, the 
field length. This type of addressing is usually specified as a 
DEFCON or DEFLD. Its advantage is ease-of-use for fields of fixed 
location and length. 


Segment header addressing use the addressing information, maintained by the 
system, in the segment header. Each segment has a header 
containing displacement and length fields that you can use to address 
data simply by specifying the segment number. The advantages of 
Segment Header addressing are: you can easily construct data strings 
of variable length items and you can readily determine the length of 
items within a data string. 


Register addressing load the segment space ID, segment number, displacement, 
and length information into a register and use the contents of the 
register to address data. This type of addressing allows your program 
to dynamically modify addressing values. 


Modified nei addressing describe data fields using the DEFRF instruction 
and load addressing information into a register. The controller will 
modify the register using addressing values from the DEFRF 
description. This type of addressing has the same advantages as 
Register Addressing. Also, its use of DEFRF provides a 
straight-forward way of describing the data area to be processed. 


Segment-displacement and segment header addressing do not provide a way to 
specify segment space ID, therefore, you can use them to address only storage 
that is allocated to your program. Register and modified register addressing allow 
you to address storage that is allocated to all application programs associated with 
the same logical work station. 


For example, you may use modified register addressing in a secondary application 
to address storage allocated to the primary application. The primary application 
can pass its segment space ID to the secondary program allowing it to access 
segments that were assigned to the primary program. 


Segment-Displacement Addressing 


The components of this type of addressing are: 


1. the segment number. This is the number (from 0 to 15) of a segment. If the 
instruction refers to a segment that was never allocated, a program check 
occurs. 


2. the displacement to the beginning of the field, in bytes, from the beginning of 
the segment. This is a value between 0 and 65 534. If a displacement is 
specified that is greater than the length of the segment, a program check 
occurs. 
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3. the field length, where appropriate. If the displacement plus the length of the 
field is greater than the size of the segment, a program check occurs. 


For example, an input buffer might contain a field that is to be moved to an 
output buffer for printing. | 


Buffer Segment Format 
10 bytes 
0 20 
0 10 


You can use a MVFXD instruction to move field 1 to field 2: 


MVEXD: 2,10,3 20; 10 


_—- of the source field 
Displacement of the source field 
Source segment number 
Displacement of the destination field 
Destination segment number 


The following example shows another way of coding the same thing using 


DEFLD instructions. DEFLD associates a label with a field definition so that 


subsequent instructions can reference the field symbolically. Application 
programs written using DEFLDs, rather than absolute references, will be easier to 


modify. 


MSG DEFLD S02,0,10 
OUTPT DEFLD S02,,20 
% 

DATA DEFLD S03,0,20 
INPT DEFLD S03,,10 


DATA2 DEFED SO3,,5 


MVFXD OUTPT, INPT 


4700 Controller Programming Library, Volume 1: General Controller Programming 


The operands of the DEFLD instruction specify the segment, displacement, and 
length of a field. Notice that the displacement operand has been omitted from 
several DEFLDs in the example. When you do not specify a displacement, it is 
equal to the sum of the displacement and length of the last DEFLD referring to 
that segment. In the example above, the displacement of INPT is 20 and the 
displacement of DATA2 is 30. You can code either DEFLD or Ln instructions to 
create DEFLDs (see the LDSECT, Ln, and LEND instruction descriptions). 


Segment Header Addressing 


Segment Header addressing uses the segment header associated with each 
segment. The header consists of: 


e The segment length indicator (SLI) contains the length of the segment. This 
length does not include the segment header. 


¢ The primary field pointer (PFP) contains a displacement that is an offset from 
the beginning of the segment. 


e« The field length indicator (FLI) contains the length of a field. 


¢ The secondary field pointer (SFP) also contains a displacement that is an 
offset from the beginning of the segment. Sometimes two pointers, that is, 
the primary and secondary field pointers are required in the same segment. 


Segment Header addressing applies only to certain instructions, therefore you 
should be aware of those instructions that allow you to use Segment Header 
addressing and those that require this type of addressing. 


Data entered by a teller or transmitted from the host processor may form fields of 
variable lengths. Segment Header addressing enables the controller application 
program to handle these fields. 


The PFP and FLI work together to describe a field. For example, a seven-digit 
account number, located at displacement 0 of the segment, can be addressed 
when the PFP is equal to 0 and the FLI is equal to 7. 


PL 


ti 
Segment Storage: 1255687 


PEP 


If this account number is to be moved to another location in the same segment, 
the SFP is used to point to the beginning of the destination field. For example, to 
move the account number to bytes 20-26, the SFP is set to 20. 


FLI 
Segment Storage: 1255687 f 
PFP SFP 
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Register Addressing 


You can use a move instruction to move the account number. The number of 
bytes moved is determined by the value of the FLL 


The PFP and SFP are used to describe a field when a write is performed using the 
two-byte form of the LWRITE instruction. The SFP points to the leftmost byte of 


the field, and the PFP points 1 byte past the rightmost byte of the field. For 
example: 


Segment Storage: GOOD MORNING 


SFP PFP 


This arrangement is used because move instructions, which are normally used to 


load the output area, update the PFP. At the end of a move operation, the PFP 


points 1 byte past the end of the destination field, thus allowing a series of move 
instructions to place data in a contiguous area without resetting the PFP. 


The segment header cannot be directly addressed. However, you can obtain and 
alter the fields using the following instructions: 


SETFPL Sets the PFP and FLI. 


SETSFP Sets the SFP. | 


EXPS Exchanges the PFP and SFP values. 


LDFP Loads the contents of the PFP into a register. 


LDLN > Loads the contents of the FLI into a register. 

LDSFP Loads the contents of the SEP bate a register. 

LDSEGLN Loads the segment length into a register. 

Private segments each have their own segment header. Shared segments have a 


separate headers for each logical work station to prevent one station’s poperauen 
from interfering with another station’s addressing. : 


Register addressing means that all of the information required to address a field is 
contained in a register. You indicate register addressing by coding (reg) in 
instruction operands. 
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You can load a register with a register address using the LDRA instruction. In the 
following example assume that the displacement of FIELDA is 100. 


FIELDA DEFLD S02,,6 
LDRA RO4,FIELDA 
* load segment space ID, 
* segment number 2, 
* displacement 100 and 
* 


length 6 into register 4 
Following the operation of an LDRA instruction the register will contain: 


1. The segment space ID of the main storage segments assigned to this 
application program. This ID is always 1 for the segments allocated to the 
primary application program of each logical work station. The controller will 
assign new segment space [Ds for secondary programs: 


2. The segment number. This is the number (from 0 to 15) of a segment 
allocated to the logical work station. If the instruction refers to a segment 
that is not allocated, a program check occurs. 


3. The displacement, in bytes, to a field from the beginning of the segment. This 
will be a value between O and 65 535. If a displacement is specified that is 
greater than the length of the segment, a program check occurs. — 


4. The length of the field, in bytes, determined by the length of field-2. If the 
displacement plus the length of the field is greater than the range of the 
segment, a program check occurs. 

The displacement is in the low-order two bytes of the register. Therefore, you can 


change the displacement by adding or subtracting a value to or from the register. 
For example, to increase a displacement by 6: 


SIX DEFCON 6 


ADDFLD R04,SIX 
Modified Register Addressing 


Modified register addressing means that an address value contained in a register is 
modified by another value. You must indicate modified register addressing by 
coding the (defrf) addressing form in the instruction operands. 


(defrf) is the label of a DEFRF instruction that contains values used to modify an 
address in a register. A modified register address is formed as follows: 


1. segment space ID - is taken from the register 


2. segment number - is taken from the register 


Chapter 2. Coding Considerations 2-17 


3: displacement - - is obtained by adding the displacement from the register to the 
displacement of the DEFRF 


4. length - is taken from the DEFRF. 


For example, the following DEFRF associates register 3 with a displacement of 15 
and a length of 5: 


BALANCE DEFRF RO3,15,5 


If register 3 contained the following address (perhaps initialized by an 1 LDRA 
instruction): 


segment space ID = 1 
segment number =. 4 
displacement = 100 
length = 200 


tuen the following instruction: 
ADDFLD RO6, ( BALANCE ) 


would add the 5-byte field in segment space 1, Segment 4, cisplacement 115, to 
register 6. | 


The register (register 3 in the above example) is not altered when a modified 
register address is formed. 


You can also use modified register addressing with DSECTS (Dummy Sections). 
You can define a dummy section by a series of DEFRF instructions. For example, 
assume a 20-byte customer record includes a 12-byte account number, a 3-byte | 
status code, and a 5-byte current balance. This record could be defined as follows: 


ACTNUM DEFRF RO3,0,12 


STATUS DEFRF RO3,,3 
BALANCE DEFRF RO3,,5 


Further, assume that Segment 4 contains a series of the 20-byte records described 
above, starting at displacement 100, and defined as follows: 


RECORDS DEFLD S04,100,0 


An application program could initialize register 3 to point to the first record by: 


LDRA RO3,RECORDS 


The displacement in register 3 would be 100 and the length would be zero. Now, 
if the program performs: 


ADDFLD ROG, ( BALANCE ) 


then the balance from the first record (displacement 115, length 5) will be added 
to register 6. 
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The program could then add 20 to register 3 (the displacement part of a register 
address is in the low-order 2 bytes) as follows: 


TWENTY DEFCON 20 


ADDFLD RO3,TWENTY 


so that register 3 would now point to the second record. The program could loop 
back to. the ADDFLD instruction to add the second balance to register 6. 


Programming Notes About Segment Headers 


The purpose of this section is to give you some idea of the ways in which your 
program can manipulate and use the Segment Headers in the 4700. It 
concentrates on the SETFPL instruction which can be used to set the PFP and 
FLI for both fixed-length and variable-length fields. SETFPL has the following 
general format: 


[label ] SETFPL seg,pfp,fli 
an optional FLI operand 
an optional PFP operand 
the segment number 


Fixed-Length Fields 


The simplest form of the SETFPL instruction refers to a DEFLD or DEFCON 
instruction used elsewhere in the program. The segment, displacement, and 
length values specified in the DEFLD, or implied in the DEFCON, are used by 
SETFPL to set the PFP and FLI. 

The following example shows how DEFLD and SETFPL are used to set the PFP 


and FLI of a segment. After the SETFPL is executed, the PFP for Segment 2 is 
set to 0, and the FLI for Segment 2 is set to 100: 


OUTPUT DEFLD S02,0,100 


SETPTRS SETFPL OUTPUT 


The PFP and FLI may also be set using values in registers. The registers must be 
loaded prior to executing the SETFPL: 


SETPTRS SETFPL $02,(RO2),(R03) 
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Variable-Length Fields 


Modifying the PFP and FLI: The PFP and FLI may be increased or decreased 
using the SETFPL instruction. This is done by using a signed number in the 


applicable operand. = === © 


When the PFP is modified, an inverse modification is performed on the FLI. For 
example, if 5 is added to the PFP, 5 is subtracted from the FLI. After this 
operation takes place, the FLI is further modified by the FLI operand. For 
example, two 7-digit account numbers are in adjacent fields in Segment 2, and the 
PFP and FLI describe the first field:. 


FLI 


eet 
Segment Storage: 33822063833047 


PFP 
The following SETFPL modifies the PFP and FLI to describe the second field: 
INCRFLD SETFPL S$02,+7,+7 


When the PFP is increased by 7, the FLI is decreased by 7 to 0. Then the FLI is 
increased by 7. Thus, at the end of the operation, the second field is described: 


33822063833047 
a 
FLI 


PEP 


You can define a variable-length field by inserting delimiters at the beginning and 
end of the field when it is created. The program can then use SETFPL to locate 
the delimiters and set the PFP and FLI accordingly. 


You can also define a variable-length field as the data between the beginning of 
the segment and the first delimiter, or between the last delimiter and the end of 
the segment. You define delimiters themselves using the DEFDEL instruction 
described under -- Heading id ’delimit’ unknown --. The rest of this section 
assumes that the appropriate delimiters have been defined and are recognized by 
SETFPL. The fields shown in the examples are typical of data entered by a teller 
using blanks, hex FA, and hex FB as delimiters. (Hex FA and hex FB have no 
EBCDIC character equivalent and are therefore represented by asterisks (*) in 
the text and figures.) The format of the fields is: 


transaction accountno. amount amount EOM* 

(EOM* is the end-of-message indication.) 
The controller uses three operands—F, +F, and -F—when scanning a segment 
for variable-length field delimiters. When the controller finds the. desired 


delimiter, it sets the PFP to the segment address of the first byte of the field and 
the FLI to the field length. 
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Note: Because scanning a field to set the FLI requires extra processing time, you 


should avoid this process, if possible, by setting the FLI to a valid absolute 


number. This stops the SETFPL instruction from scanning for the field length). 


The following examples show the use of F, +F, and -F. 
For example, the teller enters: 


SDEP 3382206 128.50 400.00 EOM* 


The entry is read into the input area, INPUTSEG, starting at the PFP. The read 


operation does not change the PFP or FLI. 

To define the first field, you can code the following SETFPL: 
FINDFLD SETFPL INPUTSEG,F 

The pointers are now set as follows: 


FLI 


eee, 


SDEP 338220 128.50 400.00 EOM* 


PFP 
To point to the next field, you can code the following SETFPL: 
FINDNEXT SETFPL INPUTSEG,+F 


The pointers are now set as follows: 


FLI 


. es 
SDEP 3382206 128.50 400.00 EOM* 


PFP 
To point to the previous field, you can code the following SETFPL: 


FINDLAST SETFPL INPUTSEG,-F 
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The pointers are now set as follows: 


FLI 


a 
SDEP 3382206 128.50 400.00 EOM* 


PFP 


Programming Notes About Field Delimiters 


Inserting Delimiters in Fields 


Processing Messages and Fields 


To use delimiters you must choose a one-byte delimiter character, and then 
identify it using the DEFDEL instruction. Refer to the DEFDEL instruction 
description in “Data Definition Instructions.” 


The programmer should establish conventions for using delimiters. The following 
are suggested ways of placing delimiters at the beginning and end of the fields, 
depending on the source of the data: 


Program-Created Fields: lf only one delimiter is required, a routine can first fill the 
data area with the delimiter character, and then can place the individual fields 
into the data area leaving one space (delimiter) between fields. If more than one 
delimiter is required for the message, you can associate individual delimiters with 
various subfields. 


Operator-Created Fields: The keys used by the operator to denote the end of a 
field or message must be set to the desired delimiters using the INTRTBL | 
configuration instruction. An operator procedure must then be devised that 
describes how each field or message is ended (by pressing the space bar, an 
end-of-message key, or other convenition). 


When a message is read by the application program, the message length is placed 
in Segment 1 at SMSIML, and the beginning of the message is identified by the 
PFP, Thus, the message is fully defined to the application program. However, the 
program must define individual message fields, either by using delimiters or by 
predefining fixed fields. 


For example, the teller enters: 
transaction accountno amount...EOM 


If the beginning of the input area is known and the transaction type and account 
number have fixed lengths, these fields can be addressed as fixed fields. The 
remainder of the message contains a varying number of variable-length amounts 
separated by delimiters. Each is addressed as a variable-length field. To move 
the entire message, the FLI is set to the value in SMSIML. 


The application program can also process transactions in which the teller enters | 
the fields as individual messages. For example, the teller can press a key that 
indicates the type of transaction and EOM. The teller can then enter a field and 
press a key that indicates the account number and EOM. The teller can 
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continue to enter individual fields as discrete messages until the entire transaction 
is entered. As each field is read, it could be checked for errors and processed. 


Logical Work Station Dispatching 


Dispatch ing Modes 


Priority Dispatching 


The controller allocates processing time to, or dispatches, each logical work station 
either in work-station-[D-number order or according to a predefined table. This 
dispatch order, combined with other conditions that permit the stations to gain or 
release control, determines whether or not and when an application program runs 
on behalf of a logical work station. 


The dispatched station and any others that have not completed processing by 
issuing an LEXIT instruction are active. All logical work stations that have never 
become active or that have indicated that processing is completed are idle. 


The following are descriptions of how logical work stations gain and release 
control, or are. dispatched by, the controller. 


The order and frequency with which work stations are checked for dispatching 
are determined by the type of dispatching mode in effect in the system: 


¢ Station-Chain Dispatching—Stations are dispatched in station-ID sequence. 
No one station is checked for dispatching any more frequently than another. 


¢« Priority Dispatching—You can choose to dispatch work stations in a certain 
order by defining the order in a priority dispatch table. The table, which you 
define during CPGEN, also controls how often a station is dispatched, 
compared to other stations. You can define more than one table and transfer 
control dynamically from one table to the other. More information on 
priority dispatching is under “Priority Dispatching.” 


Station chain dispatching is the basic dispatching mode. It is in effect unless a 
priority dispatching table was defined with the PRIDSP configuration macro and 
priority dispatching is invoked by the LCHAP (Change Priority) instruction. 
LCHAP also turns off priority dispatching. 


In either mode, only those stations that have work to perform are dispatched; 
stations without work are passed by. One complete pass by the controller through 
the dispatch chain or priority dispatch table is called a dispatching cycle. 


Priority dispatching allows specification of the order and frequency with which 
logical work stations are checked for dispatching. An individual work-station ID 
can appear as often as desired in the table. 


To use priority dispatching, at least one priority dispatching table must be defined 


in the controller configuration; the most you can have is four tables. A table is a 
list of station IDs in the order that they are to be checked for dispatching. 
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Entry Point Priority 


It is possible for a station to have more than one type of work to perform when its 
turn occurs during a dispatching cycle. The controller, in this circumstance, gives 
control to the station’s application program so that the type of work with the 
highest priority is performed. Work priorities are as follows: 


Startup processing (occurs only once during a session) 
Resumption of processing 

Receiving data from a telecommunications line 
Receiving data from a terminal 

Receiving data from another station 

Program interrupt 

Asynchronous timer interrupt 


Se ee 


Gaining Control 


A work station can be dispatched when one of the following happens: 


e The controller has just been loaded, the application program has a startup 
entry point (the STP operand of the BEGIN instruction), and startup has 
been specified for the station during configuration (the STARTUP operand of 
the STATION configuration statement). The station’s application program is 
given control at the instruction label selected by the STP operand. A startup 
dispatch can occur only once during a processing session. (A processing 
session is the period of time between controller startup and restart or 
shutdown.) 


e An active logical work station is ready to resume work that it began earlier. 
The logical work station may have given up control temporarily because of a 
data transmission operation. The station’s application program is given 
control at the instruction pointed to by the station’s instruction counter. A 
logical work station may be dispatched in this manner many times during the 
time it is active. Also, a logical work station may receive unsolicited messages 
while it is active (from the telecommunications line, a terminal, or another 
Station). If the station does not read these messages before issuing LEXIT, it 
is redispatched; control is given to the application program at the appropriate 
entry point. 


« The station receives a message from the telecommunications line, the station is 
idle, and the application program has an appropriate entry point (the ACP 
operand of the BEGIN instruction) entry point defined. The station’s 
program receives control at the instruction selected by the ACP operand. 


¢ The station received data terminal data, is idle, and the station’s program 


defines a terminal entry point (the ATD operand of the BEGIN instruction). 
The program receives control at the instruction selected by the ATD operand. 
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Releasing Control 


« The station received data from another station, is idle, and the program 
defines a station entry point (the AST operand of the BEGIN instruction). 
The station’s program receives control at the instruction selected by the AST 
operand. 


e The station received a program interrupt (an LPOST issued by another 
program), the station is idle, and the station’s program defines a program 
interrupt entry point (API operand of the BEGIN instruction). The station’s 
program receives control at the instruction selected by the API operand. 


e The station received an asynchronous timer interrupt, the station is idle, and 
the station’s program defines asynchronous timer-entry point (ATM operand 
of the BEGIN instruction). The station’s program receives control at the 
instruction selected by the ATM operand. 


The asynchronous timer gives an idle work station the ability to dispatch 
itself. This is in contrast to being dispatched because of an asynchronous 
request from another source. During a dispatching cycle, the controller 
compares the current value of the controller timer with a preset value in the 
station’s program. The comparison result and the current station status (idle 
with no asynchronous requests pending) determine if the station is 
dispatched. The following conditions control timer operation: 


1. Any asynchronous requests pending when the timer request occurs, are 
processed first; the timer request is deferred. 


2. If the station is idle and the station’s timer value is not zero but is equal to, 
or less than, the value of the controller timer, the station’s program 
receives control at the entry point defined in the ATM operand of the 
BEGIN instruction. The station’s timer value is reset to zero. 


3. Setting the station’s timer value to zero cancels the timer request. The 
station’s timer is not reset if the controller defers the timer request 
because another asynchronous request is pending. However, the station 
can change the timer value while processing a higher~-priority 
asynchronous interrupt. Resetting the timer value to zero cancels any 
pending timer interrupt request. 


In all cases except startup, a logical work station may be dispatched, at one of an 
application program’s entry points, any number of times during an active session. 


Logical work stations give up control allowing other stations to be dispatched. 
Releasing control is done in the station’s application program and may cause the 
logical work station to remain active or to become idle. 


1. A logical work station remains active when it gives up control in one of the 
following ways: 


e« A PAUSE instruction is executed. This causes the controller to take a 


dispatching cycle. Control will be returned to this station’s program at the 
next sequential instruction. 
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e A data transmission instruction is executed that requires a pause in 
processing until the operation is completed. Other logical work stations 
are checked and may be dispatched. Control is returned to the program 
that released control at the next sequential instruction. 


e An LWAIT instruction is executed. Other logical work stations are 
checked and may be dispatched. Control is returned to the next 
sequential instruction when an asynchronous interrupt occurs or an 
operator signals an attention. 


e« A program check causes control to be given to a program check routine 
(the PC operand of the BEGIN instruction). 


2. A logical work station becomes idle when it gives up control in one of the 
following ways: 


e« An LEXIT instruction is executed. 


« A program check occurs that causes an LEXIT. 


System COPY Files 


Segments 0, 1, 14, and 15 contain fields that have special meaning during 
controller application program execution. Definitions of these fields are made 
available by coding the following operands of the COPY instruction: 


« DEFRGS or DEFREG, which defines the registers in Segment 0 


e DEFSMS, which defines the fields in Segment 1, the System Machine 
Segment | | 


e DEFAPB, which defines the fields in Segment 14, the application program 
header 


-e DEFGMS, which defines the fields in the fixed portion of Segment 15, the 
Global Machine Segment. 


Because the definitions are subject to change, you should base any references to 
the standard definitions on the labels provided by the system copy files. You 
should also ensure that fields defined by a system copy file are referenced 
individually. 


_ For example, COPY DEFAPB might contain: 


APBLBL1 DEFLD S$14,,2 
APBLBL2 DEFLD S$14,,2 


Because it is possible that the DEFAPB definition could change, it would not be 
advisable for you to code one DEFLD (of length 4) and expect it to contain both 
fields. 
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Appendix B contains details of system copy files. Those copy files that contain 
the DEFxxx notation can be created in two forms; one for the 
Segment-Displacement addressing and the other for modified register addressing. 
For example, DEFCPL will expand into a series of DEFRF instructions for 
modified register addressing, if the following is used: 


LDSECT BASE=r 
COPY DEFCPL 
LEND 


where: r is a register number (0 - 15) 


DEFCPL will create a series of DEFLD instructions, for Segment-Displacement 
addressing if you code an EQUATE before the COPY instruction, as follows: 


DEFCPLS EQUATE s 
COPY DEPCPI 


where: s is a valid segment number 
Note: 


Appropriate volumes of this 4700 Controller Programming Library contain similar 
DEFxxx COPY parameter lists and files. Refer to the volume for the type of 
programming you are performing, for detailed descriptions of the applicable 

DEF xxx files. 


Condition and Program Check Codes 


Condition and program check codes supply information about program operation 
and any errors that might occur: 


e Condition codes: Some instructions set one or more condition codes. 
Condition codes indicate the result of the operation of an instruction. Each 
instruction description in Chapter 5 includes the condition codes that can be 
set by that instruction. 


e Program check codes: Program checks are indications of errors detected by 
the controller during operation of an application program. In general, they 
indicate that the application program has attempted to instruct the controller 
to perform an invalid operation. For example, scan a field for a delimiter 
without providing the required delimiter table. 


Your application program can include a routine to handle program checks. Its 
entry point is defined by the PC operand of the BEGIN instruction. When 
the program check routine receives control, a flag (SMSPCR) is set to 
indicate that a program check routine is in control. If this flag is not reset by 
the application program, it is reset when an LEXIT is issued. 


All program checks cause the controller to write a message to the system log 
that contains the station number, application program name, program check 
code, program check address, loop instruction count, and the first two bytes 
of the failing instruction. In addition, the program check code and program 
check address of the failing instruction are placed in the System Machine 
Segment (Segment 1). All of this information can be printed on a terminal or 
transmitted to the host processor by a program check routine. A program 
check can also appear as a CNM (Communications Network Management) 
alert if specified in your configuration. 
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The controller uses the following rules when a program check occurs, depending 
on whether a program check processing routine is active: 


~ « If SMSPCR is off, give control to the program check entry point of the current 
application program. | | 


— If there is no program check entry point and the current program is the 
primary program, then perform an LEXIT. 


— If there is no program check entry point and a current application is the 

| secondary program, then perform an APRETURN; place an entry in the 
system log showing that an APCALL caused a program check; and give 
control to the program check entry point of the calling program. If the 
calling program does not have a program check entry point, the controller 
will continue to perform APRETURNs until a program check entry point 
is found or an LEXIT is performed because the primary application has no 
program check entry point. 


e If SMSPCR is on, the controller will attempt to give control to a program 
check entry point as above, except that it will not give control to the program 
check entry point of the current application program. 


Optional Instructions 


4700 subsystem controller instructions are executed by controller modules 
incorporated into the configuration image. For most 4700 instructions, the 
controller includes the required modules in the configuration image during its 
generation. However, for certain instructions, the controller does not 
automatically include these modules in the configuration image; they must be | 
specifically requested in the specifications you use to define the configuration 
image. 


Including optional instruction modules will affect the amount of storage required 
for controller functions and may create a need for additional storage. 


Even though the appropriate controller data modules are included in the 
configuration image, the programmer should be aware that the control operator 
can prevent these modules from being loaded during the controller load 
procedure. | 


If the appropriate controller data modules are not in the controller when an 
optional operation code is encountered, a program check hex 09, invalid operation 


code, occurs. 


The Global Machine Segment (GMS) contains information that can be tested for 
the presence of optional modules. See the DEFGMS copy file in Appendix B. 


Volume 6: Control Program Generation of this 4700 Programming Library 
contains the information you might need on this subject. 
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COBOL Considerations 


Use of 3600 Programs 


4700 assembler programs that transfer control to and from COBOL programs 
require additional instructions if they receive or send parameters, and must follow 
these conventions: 


1. Acalled assembler program receives an APCALL parameter list from the 
calling COBOL program set as follows: 


e Shared segment flags = X‘BFFA’ 
« Register flags = X‘4000’ (Passes register 1) 


2. Register 1 contains a register address of a list of addresses, each of which 
selects a parameter. The register-1 length field defines the address-list length. 


3. The contents of Register 12 are destroyed by COBLCALL. 


The called assembler program should have an FCLENTER instruction at the 
APCALL entry point to define a save area for the contents of register 1 and 
assign names to the parameters. It should also have an FCLEXIT instruction at 
the APRETURN point to restore the contents of register 1 and redefine the 
parameters to be returned to the COBOL program. 


The 4700 COBOL Compiler generates 4700 assembler output that can contain 
two additional instructions, CRETN and LCONVERT, primarily for COBOL 
use. See the IBM 4700 Finance Communication System, COBOL Programmer’s 
Guide, SL23-0082, for more information. 


The 4700 system accepts 3600 application programs with little or no change. 
Application programs that use non-standard forms of SMS (the System Machine 
Segment) or GMS (the Global Machine Segment) may require changes to operate 
with different 4700 system formats. 


4700 allocations for the global (GMS), system (SMS), and application program 
storage segments are larger than for the 3600 system. Those 3600 programs that 
refer to the GMS and SMS fields defined by COPY DEFGMS or COPY 
DEFSMS are not affected by the larger GMS and SMS segments in the 4700. 
Those programs that use other than the standard system definitions may require 
redefining of those areas. Also, those configurations at or near the limits of their 
segment specifications for the GMS, SMS, or Segment 14 might need testing to 
ensure that enough storage remains to accommodate the larger segments. 


There have been a number of changes in 4700 Control Program Generation. You 


may find it necessary to modify your 3600 CPGEN specifications for them to be 
acceptable in the 4700 environment. 
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Chapter 3. 4700 Instruction Categories 


This chapter introduces to you various kinds of 4700 instructions. They are 
divided here into categories to help you understand their purpose and function. 
Not all of the controller’s base instructions are included, and this chapter does not 
contain detailed information. Chapter 5 contains descriptions of each instruction 
including examples. 


Program Definition Instructions 


Assembly Definition 


This section describes the instructions that are used to control assembly of 
application programs and program sections. 


You must place an APOPT (Application Program Options) as the first instruction 
in an assembly. BEGIN and FINISH are used to define an assembly. SEGCODE 
(Application Program Section Identifier) and ENDSEG (End Application 
Program Section) are used to define relocatable sections that may be appended to 
relocatable root sections and overlay sections. 


The APOPT Instruction: APOPT precedes all other 4700 assembler instructions in 
an assembly. It is used to specify whether the instructions that follow are part of 
a nonrelocatable program (RELOC=N or an omitted operand) or a relocatable 
program (RELOC=Y). If the APOPT is omitted, a nonrelocatable assembly is 
performed. APOPT may be specified only once in an application source program. 


APOPT also has other functions: 


e DISP=NEW specifies that the section or sections are new and should only be 
added to the host library if a section with the same name does not already 
exist. 


e DISP=OLD (or an omitted operand) specifies that a section or sections may 
already exist in the host library. If the same name(s) already exists, then the 
section(s) being assembled replaces those in the library. If the section does 
not exist, it will be added. 


« DIRNAME=(name,NEW) specifies that the named directory should be 
created in the host library and that directory entries for all sections in the 
assembly should be added to the new directory. If a directory with the same 
name already exists, another directory will not be created and the entries for 
the sections will not be added to the old directory. 


e DIRNAME=(name,OLD) specifies that the named directory already exists 
and that directory entries for all sections in the assembly should be added. 
(An entry will not be added if a duplicate entry already exists in the 
directory.) If the directory does not exist, a new one is created and entries for 
all sections in the assembly are added to it. 


¢ YL2=Y specifies that all AL2 address constants used as operands of 
DEFCON instructions in the following sections should be changed to 
relocatable YL2 address constants. You should be careful when using this 
operand because the DEFCON macro cannot distinguish between expressions 
that are not intended to be relocated and those that are. You should 
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therefore manually change the source statements if there is any question 
about the use of AL2 address constants in the application program. If 
YL2=N is specified or the operand is omitted, AL2 address constants will not 
be altered. 


The BEGIN Instruction: You use the BEGIN instruction to identify the application 
program and specify its entry points. It may also be used to specify the address of 
a delimiter table. : 


The application program name consists of an eight-character name (names are 
padded to the right with blanks), a date, and a version number. When the 
application program is processed by Host Support, the name and version number 
are used to associate the program with a load image. The name is also used to 
associate an application program with a station. Application programs with the 
same name cannot be in a controller at the same time. 


Program entry points define where processing begins for: 


initial startup The STP entry point is specified if the application program is to 
gain control when the controller is loaded by the control operator. 


‘data received asynchronously Three entry points are used when data is sent to the 
program running on behalf of a logical work station: 


e AST for data from another station 
e ATD for data from a terminal 
e ACP for data from the central (host) processor. 


entry from another program The APENTRY entry point must be specified if your 
program can be called by another. 


interrupts from another program. The API entry point must be specified if your 
program can be interrupted by another. 


timer functions The ATM entry point must be specified if the station timer 
facility is to be used to dispatch your program. 


program checks The PC entry point must be specified if your program contains a 
routine to handle program checks. 


The following conditions occur when an entry point is not specified and an 
attempt is made to dispatch the application program at that entry point: 


¢ With no STP entry point and startup specified for the logical work station: a 
program check. 


e With no AST, ACP, ATD, ATM, or API entry point the dispatch will be 
suppressed and held. With APCALL/APRETURN the entry point may be 
defined in another application program’s BEGIN instruction. 


» With no APENTRY point and an APCALL issued by another station: a 
program check. 
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Section Definition 


The FINISH Instruction: FINISH defines the end of the assembly and must be the 
last instruction in the assembly. 


The next few paragraphs introduce the instructions that you can use to define 
different kinds of program sections. Detailed information about these instructions 


is in Chapter 5. 


The SEGCODE Instruction: SEGCODE must be the first instruction in a 
relocatable section that will be appended to another assembly during link-edit. It 
specifies the name and version number of that section. 


The ENDSEG Instruction: ENDSEG defines the end of a section begun by a 
SEGCODE instruction. 


The OVLYSEC Instruction: The OVLYSEC instruction must be the first 
instruction in overlay section. 


The ENDOVLY Instruction. The ENDOVLY instruction defines the end of an 
overlay section begun by an OVLYSEC instruction. 


The SECTION Instruction: SECTION is used to define a dummy section 
(DSECT). A dummy section is a description of an area of storage that is defined 
elsewhere in the program or in another assembly. It may appear anywhere 
between the BEGIN/FINISH, OVLYSEC/ENDOVLY, or 
SEGCODE/ENDSEG instruction pairs and may appear as many times as are 
required. A SECTION DUMMY must be ended by a SECTION END. 


Assembly Control Instructions 


Equates 


COPY Instruction 


Using an absolute value in symbolic instructions has two disadvantages: 


e Ifa value such as a register number is changed, many instructions may have to 
be changed. 


e Absolute numbers do not convey meaning and make it difficult to understand 
the logic of a program when reading the listing. 


The EQUATE instruction allows you to associate a meaningful label with an 
absolute value; the absolute value must still conform to the specifications of the 
operand. It also defines information for the assembler and makes your program 
easier to modify. 


Use of the COPY instruction is described in Chapter 2. 


Controlling Base Registers during Assembly 


USEBASE, SAVEBASE, and REBASE allow you to control the base register 
numbers that are assembled into instructions that use modified register addressing 
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with the LDSECT instruction. The USEBASE instruction must refer to an 
LDSECT instruction that describes an area to be addressed by a register. 
LDSECT is one of the Data Definition instructions in this chapter. 


Assembly Listing Control Instructions 


This section mentions the instructions that are provided so that you can control 
the printed output of the assembly process. They are: LEJECT (Eject a Page); 
LSPACE (Space a Line); PLPCMD (Post List Processor Command); and 
PRINTI (Print Macro Expansions). 


These instructions allow you to leave blank space in your assembly listing to 
improve its readability. They also allow you to have some control over what is 
printed and what is not printed. 


Data Defi inition Instructions 


Defining Constants 


Defining Delimiters 


Defining Dump Parameters 


This section describes the j instructions that define data, both in the form of 
constants and in the form of areas to be used for input, intermediate, or output 
storage. 


The instruction that defines a constant field is DEFCON (Define Constant). 

DEFCON is used to create bytes of data within the application program. This 

data can be used, for example, as prompting messages for the teller. When a 

DEFCON is assembled, it has an implied: | 
segment number (14) 


displacement (its location in the application program) 


length (the number of bytes defined). 


The DEFDEL (Define Delimiters) instruction defines delimiter characters that 
can be used to process variable-length fields. Use of delimiters is discussed in 


_ Chapter 2 under “Programming Notes About Field Delimiters” on page 2-22. 


The DEFDMP (Define Dump Constants) instruction is used in conjunction with 


the APBDUMP instruction to request that the station dump one or more segments 


to a diskette. 


Defining Masks and Modulus Factors 


Defining Tables 


The MASK and MOD (Modulus) instructions create constants that are used 
during the execution of the EDIT and MODCHK (Modulus Check) instructions 
respectively. 


The LTRTBEG, LTRTENT, and LTRTGEN (Translate Table Begin, Entry, and 
Generate) instructions create a table that is used by the LTRT (Translate) 
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Defining Fields 


instruction. The TABLE instruction creates a table that is used by the LSEEK 
and LSEEKP instructions. 


Three instructions, LTRTBEG, LTRTENT, and LTRTGEN, are used to define 
and generate a translation table during assembly of the application program. This 
translation table is used by the LTRT instruction. LTRTBEG and LTRTENT ~ 
define the characteristics and contents of the translation table; LTRTGEN 
generates the table. 


DEFLD (define field) is used to associate a label (symbolic location) with a field 
definition. Using DEFLD instructions makes coding easier because the field so 
defined can be referred to symbolically. 


The DEFRF (define modified register-addressed field), LDSECT (dummy 
section), Ln (DSECT level definition), and LEND (DSECT End) instructions are 
used to describe areas of segment storage that can be processed using modified 
register addressing. 


Data Operation Instructions 


Formatting Input Data 


This section describes the instructions you can use to perform: general data 
movement; translation; editing; and a large number of other operations. 


For the convenience of an operator, it is usually desirable to allow monetary 
values to be entered from a keyboard in a relatively free form. However, these 
free-form values frequently must be reformatted by the application program for 
the values to be suitable for arithmetic processing. The SCALE instruction, 
together with a scale parameter list (see COPY DEFSCA instruction), can be 
used to perform such operations. In addition, the SCALE instruction provides 
validity checking on the input data. 


Moving Data within Controller Storage 


The Move and Convert Zoned (MVCZ); Move Field (MVFLD) and Move Field 
Reverse (MVFLDR); Move Fixed (MVFXD) and Move Fixed Reverse 
(MVFXDR); and Move Segment (MVSEG) and Move Segment Reverse 
(MVSEGR) instructions move data from one storage location to another. 
Movement can either be between segments or between locations in the same 
segment. 


Move Data Immediate (MVDI) moves one or two bytes of immediate data. After 
executing any of these instructions, the PFP of the result segment points one byte 
past the result field. Successive operations for moving data to the receiving 
segment can be performed without resetting the PFP, unless register or modified 
register addressing is specified. 
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Verif ying Data 


Data Translation 


The VERIFY Instruction: VERIFY can be used to check a field for data type and 
length. The result of the check is indicated by one or more condition codes. The 
application program tests the condition code to determine whether the field is 
valid or invalid. 


For example, all savings account numbers are seven numeric digits. The VERIFY 
instruction allows you to test an account number to determine that it has 7 
characters and that they are numeric. 


The MODCHK Instruction: Modulus checking can also be used to help determine 
that an operator has not entered an account number incorrectly such as: reversing 
two digits, entering a non-numeric EBCDIC character, or entering too many 
characters. For example, when the account number is initially generated, the first 
six digits could be arbitrarily selected and the seventh digit could be calculated so 
that the account number will pass the modulus check. 


The LTRT instruction translates 8-bit input codes as specified by a translation 
table within the application program. The location of the translation table and 
other information needed for LTRT execution are contained in a parameter list. 
The parameter list must be initialized before LTRT is executed. (The parameter 
list fields are defined by the COPY DEFTRP instruction.) After operation of 
LTRT, some of the parameter list fields will describe the results of the LTRT 
operation. 


The translation table (there may be 4) is defined and generated during assembly 
of the application program (using the LTRTBEG, LTRTENT, and LTRTGEN 
instructions). An input area into which the input code stream is read and an 
output area to contain the translated output from LTRT are required, and are 
pointed to by the parameter list. 


Each input code may have translation, translation control, and program control 
definitions assigned to it in the translation table. These definitions control LTRT 
and program operation as follows: 


1. Translation Definition: The input code may be translated into 1 to 7 
characters of output, or defined as a character for which no output is to be 
generated. 


2. Translation Control Definition: The input code can be defined to cause a shift 
from one translation table to another; to permit input codes to be passed to 
the output area without processing (transparent write); and to control the 
position of the next character in the output area (backspaced or advanced). 
Positioning does not destroy characters already in the output area. The input 
code can also be defined to cause a user function code to be entered in the 
LTRT parameter list when execution ends on the associated input code. 


3. Program Control Definition: The input code can be defined to end LTRT 
execution with program control passing to the next sequential instruction in 
the application program or to a specified address in the application program. 
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Table Lookup 


Any input code may be assigned any combination of the three definitions just 
noted. If none of the definitions is specified, the input character will be treated as 
a null character, with no corresponding translation output or control function 
associated with it. If more than one definition is specified, the operations are 
performed in the following order: translation, translation control, program 
control. 


The LSEEK and LSEEKP instructions allow you to compare a field with elements 
in a table. They can be specified so that when a match is found between the field 
and a table element, a branch is taken to an address associated with either the 
table element or the instruction. LSEEK searches a table sequentially. 


LSEEKP searches a table using either a sequential search or a binary search on a 
sorted table. 


Tables can be created in one of two ways: 


e when the application program is assembled by specifying a TABLE instruction 
or using one or more DEFCON instructions 


e during application program execution. 


A table, such as table of savings accounts that require special processing, can also 
be built by the controller application program. The host application program in 
the host processor can send a list of account numbers daily. The controller 
application program can then build the table in one of the global segments so that 
all logical work stations have access to the table. 


Packing and Unpacking Data 


Packing Instructions 


Unpacking Instructions 


The four instructions for packing and unpacking hexadecimal data (0-9 and A-F) 
are: PAKFLD, PAKSEG, UPKFLD, and UPKSEG. These instructions convert a 
byte into 4 bits or convert 4 bits into the EBCDIC hexadecimal equivalent. Data 
compaction using these instructions requires less execution time than the 
load-and-convert and store-and-convert instructions (which convert decimal 
numbers to binary and binary numbers to decimal). 


You can use PAKFLD and PAKSEG to convert a byte of EBCDIC hexadecimal 
data (X‘F1’-X‘F9’ and X‘C1’-X‘C6’) into the 4-bit binary equivalent. The data is 
packed from left to right; the resulting field occupies half the storage of the 
original field. If an odd number of digits is converted, the leftmost 4 bits of the 
resulting field are set to 0. If digits other than 0-9 and A-F are packed, the results 
are unpredictable. 


You can use UPKFLD and UPKSEG to convert any 4 bits into the EBCDIC 
hexadecimal equivalent. The resulting field requires twice the space of the source 
field. The same procedure is used to unpack data as to pack it. 
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For example, the application program could contain a routine that converts the 
binary number to printable form and displays it on the teller’s display. UPKFLD 
or UPKSEG could be used to convert X‘A200’ to X‘C1F2FOFO’ (a printable 
A200). Unpacking is from right to left, and the fields can overlap if result 
(unpacked) data does not replace packed source data. 


Compression and Compaction 


Data Compression 


Data Compaction 


You can use the COMP instruction to reduce the size of a data stream to be sent 
to another system or to be stored on an auxiliary storage device. Compression 
replaces a string of from 3 to 63 duplicate (repeated) characters with a 1- or 
2-byte code. Compaction replaces pairs of commonly used characters with single 
coded bytes. Normally, compression is used when a data stream contains long 
sequences of identical characters: blanks, zeros, or nulls, for example. Use 
compaction for character pairs that are repeated frequently, such as: th, sh, ea. 
(You would not normally compact uppercase characters unless your data streams 
use uppercase only.) 


Compression replaces strings of repeated prime characters with a 1-byte 
compression code. The prime character should be the character most frequently 
repeated in the data stream. (Normally, the prime character used is the blank or 
space hex 40 or the null hex 00.) However, compression also compresses 
repetitions of other characters, called non-prime characters. Each string of 
repeated non-prime characters is compressed into 2 bytes (a 1-byte code followed 
by the character being compressed). For example, if a data stream contains: 


$$$$$$$$aaaaa$$$$$bbbbbb 


and the prime character selected is the dollar sign ($), the compressed string will 
contain: 


e 1 byte indicating 8 repetitions of the prime character. 
« 2 bytes indicating 5 iterations of the “a’’. 

e 1 byte indicating 5 iterations of the prime character. 
e 2 bytes indicating 6 iterations of the “b”’’. 


The actual compressed data stream will contain these codes in the form of string 
control characters (SCB). See "String Control Characters" in this chapter for a 
description of the format of a compressed data stream. 


Compaction reduces frequently used character pairs to 1-byte compaction codes. 
For example, if the data stream contains many occurrences of the character pair 
““th’’, the t and the h would be defined as master characters. During compaction, 
each occurrence of the pair “‘th”’ would be reduced to a single byte. All other 
characters would remain as 1-byte characters (but not in their normal EBCDIC 
notation). The number of master characters (maximum is 16) is governed by the 
total number of unique characters that could occur in the data stream (the 
compaction set). 
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String Control Characters 


After you use COMPTB to build the compaction table and before the COMP 
instruction is issued, the location of the compaction table is placed in the CPLTBS 
and CPLTBD fields in the COMP parameter list (DEFCPL). On execution of 
COMP, each pair of master characters in the data stream is compacted by a 
1-byte code. Any non-master character, and master character not paired with 
another master character, occupies a full byte in the compacted data stream, but 
not in its normal EBCDIC format. (The EBCDIC characters are encoded to the 
compaction table values.) Only paired master characters are compacted. 


The compression and compaction methods used are the standard Systems 
Network Architecture (SNA) compression and compaction procedures. The 
output data stream is a series of smaller data strings separated by codes called 
string control characters. The string control character identifies the data string that 
follows it, and describes the length of that string. After compression, for example, 
the output data stream will contain a series of data strings in compressed mode. 
Each string is preceded by a string control character (SCB). Each SCB begins 
with a 2-bit code describing the kind of string, and a 6-bit field containing the 
length of the string. 


SCB Code: Data String Described: 


0Oxxxxxx This SCB describes a string of from 1 to 63 uncompressed and 
uncompacted characters; the data is unchanged from the input 
data stream. The xxxxxx bits contain the length of the data string, 
identifying the location of the next following SCB. The actual data 
string of from 1 to 63 characters immediately follows this SCB. 


O1xxxxxx This SCB describes a string of from 1 to 63 compacted characters 
in the following data string. The xxxxxx bits contain the length of 
the following string. Note that a string of compacted characters 
can contain: single bytes representing pairs of compacted master 
characters; single bytes containing single, unmatched master 
characters; and single bytes containing the compact code for 
non-master characters. 


10xxxxxx This SCB describes and replaces a string of from 1 to 63 
consecutive prime, compressed characters from the input data 
stream. The xxxxxx contains the number of consecutive prime 
characters represented by this SCB. No data follows this SCB. 


Iixxxxxx This SCB describes a string of from 1 to 63 consecutive 
non-prime, compressed characters from the input data stream. The 
XXXXxx bits contain the number of times the characters are 
repeated in the input data stream. The byte immediately following 
this SCB contains the non-prime character being repeated. 
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Data Decompression 


Data Decompaction 


After compression and compaction have been performed on an input data stream, — 


the format of the output data stream (and its data strings) might look like this: 


IscB chars] sco] s SCB ‘byte SCB chars 


O1xxxxxx data string] 1 to 63 


compacted 
characters 


111XxXxxxx character represents 1 to 63 repetitions 


of a non-prime character 


|10xxxxxx] represents from 1 to 63 repetitions 
of the prime character 


OOxxxxxx data string represents 1 to 63 repetitions 


of a non-prime character 


The DECOMP instruction decompresses a data stream based on the parameter 
information contained in the list described by the COPY DEFDCP instruction. 
(This list must not be in Segment 14.) During decompression, the input data 
stream containing compressed characters is restored to its decompressed state in 
the output area. Fields in the DEFDCP parameter list are set to indicate return 
information. If a data stream has been compressed for transmission to another 
program at the central computer, for example, the receiving program must be 
given (using standard SNA protocols) the prime compression characters. 


The DECOMP instruction decompacts a compacted data stream using both a 
DEFDCP parameter list and a decompaction table created with the DECOMPTB 
instruction. To permit decompaction and decompression processing, set the 
DCPFCT flag on and store the table address in DCPTBS and DCPTBD. 


If a data stream has been compacted for transmission to another program, at the 
central computer for example, the receiving program must have a copy of the 
decompaction table. 


Arithmetic and Logical Instructions 


Arithmetic Operations 


This section describes the two types of arithmetic operations performed by the 
4700, binary and zoned decimal, and the logical (AND, OR, Exclusive-OR, and 
comparison) operations that can be executed. 


The 4700 controller performs arithmetic in either binary or zoned decimal. The 
EBCDIC data entered by the terminal operator can be operated on either directly 
by the zoned decimal instructions. EBCDIC data can also be converted to binary 
by the application program before an arithmetic operation and the results 
reconverted back to EBCDIC form for other use such as printing or displaying. 
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Binary Operations 


Zoned Decimal Operations 


LDFLD and LDSEG are used to load a binary number into a register. LDREG 
replaces the contents of one register with the contents of another register. STFLD 
and STSEG are used to store the contents of a register into a field. The data is 
loaded or stored without conversion. The LDFLD and LDSEG instructions are 
used when a binary. number is generated in the application program or a value is 
retained in binary form. If the number being loaded is shorter than 6 bytes, the 
leftmost bit is propagated to the left in the register. If the field into which the 
number is stored is shorter than 6 bytes, the number being stored is truncated on 
the left. 


LDDI loads 2 bytes of immediate data from the instruction into the low-order 2 
bytes of a register; the high-order 4 bytes are set to zeros. 


LDFLD, LDSEG, LDDI, STFLD, and STSEG do not change the PFP or FLI 
during execution; other instructions must be issued to set the PFP and FLI. The 
following instructions store the rightmost 4 bytes of a register into a field: 


SETFPL OUTSEG,,4 Sets the FLI for amount of data. 
STSEG 1,OUTSEG Stores the rightmost 4 bytes. 


LDFLDC and LDSEGC convert an EBCDIC decimal number (hex FO-hex F9), 
which may be preceded by a minus sign (hex 60) into a 6-byte binary number, 
and load it into the specified register. A negative number is loaded in twos 
complement form. 


The 4700 Assembler Language contains instructions that perform the following 
arithmetic operations. 


e Addition: ADDREG and ADDFLD 

e Subtraction: SUBREG and SUBFLD 

e Miultiplication: MPYREG and MPYFLD 
¢ Division: DIVREG and DIVFLD 


STSEGC and STFLDC convert the binary contents of a register into an EBCDIC 
decimal number (FO-F9) and store the result in a specified field. The largest 
possible decimal number resulting from a store-and-convert instruction is 15 
digits. However, if the number will never exceed 10 digits, the field can be 
specified as being 10 bytes long, and truncation, which occurs to the left, can be 
ignored. When the field is stored, a condition code is set indicating a positive or 
negative number so that the proper sign can be added. 


Zoned decimal operations do not require converted operands, but do require sign 
indicator processing by the application program. Both operands and results 
contain a sign indicator in the high-order four bits of the least significant digit. 
The application program must set a negative indicator in those bits on negative 
operands. The program must also analyze the same bits of a zoned decimal result 
to determine the sign, and then format any output accordingly. In other words, 
the sign of an operand or result is not automatically changed to an appropriate 
displayable character. 
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Comparisons 


Logical Operations 


The following are the zoned decimal instructions, and the functions they perform: 


¢ ADDZ—Add Zoned Decimal . | 
COMPZ—Compare Zoned Decimal 
DIVZ—Divide Zoned Decimal 
MPYZ—Miultiply Zoned Decimal 
SUBZ—Subtract Zoned Decimal 


The zoned decimal instructions operate on operands that are character strings in a 
storage segment. The result, where created, replaces the first operand. All 
operands have the standard zoned decimal form—each byte is a digit with X‘F’ in 
the high-order four bits and a digit (X‘0’—X‘9’) in the low-order four bits. The 
sign position, which the application program must set, contains a positive (+) sign 
code (X‘A’, X‘C’, or X‘F’) or a negative (—) sign code (X‘B’, X‘D’, X‘E’). All 
zoned decimal operands are processed byte-by-byte, from right to left. The 
maximum operand length is 63 bytes, but operands greater than 15 bytes must be 
specified with register addressing or modified register addressing. 


The 4700 has instructions that compare the contents of two fields, a register and a 
field, two registers, or a field and immediate data: 


e CAFLD and CAREG perform a binary arithmetic comparison. The leftmost 
bit of each field or register is checked to determine whether the number is 
positive (bit is 0) or negative (bit is 1), and the numbers are compared to 
determine which is larger. 


e CCFLD, CCFXD, and CCSEG perform a logic comparison of the data in two > 
fields. CCDI logically compares the contents of a fixed-field with a 1- or 
2-byte immediate operand in the instruction. The comparison is performed 

on the EBCDIC representations: an A is less than a C (C1 is less than C3), 
and F is greater than a $ (C6 is greater than 5B). 


e COMPZ performs an algebraic comparison of two zoned decimal operands. 
A shorter operand is logically padded to the left (high-order positions) with 
(X‘FO’). 3 a | a 


If your application program is going to perform multiple comparisons to find 
equivalent fields, the LSEEK instruction should be used. 


AND and ANDI perform logical AND operations, INOR and INORI perform 
inclusive OR operations, and EXOR and EXORI perform exclusive OR 
operations. They operate on two fields or on a field and 1 or 2 bytes of data in 
the instruction (immediate data). 
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AND and ANDI 


INOR and INORI 


EXOR and EXORI 


Testing Bits 


Setting and Resetting Bits 


Shifting Data 


An AND operation produces the logical product of the bits in two fields. If both 
bits in the same relative position are 1’s, a 1 is set in the result. Otherwise, a 0 is 
set in the result. 


Field 1 01100011 
Field 2 11001011 
Result 01000011 


An inclusive OR operation produces the logical sum of the bits in two fields. If 
either bit in the same relative position is a 1, a 1 is set in the result. If both bits 
are 0, a O is set in the result. 


Field 1 01100011 
Field2 11001011 
Result 11101011 


An exclusive OR operation produces the modulo-two sum of the bits in two fields. 
If only one bit is a 1, a 1 is set in the result. Otherwise, a 0 is set in the result. 


Field 1 01100011 
Field 2 11001011 
Result 10101000 


LIFON and LIFOFF test a single bit, TSTMSK and TSTMSKI test from 1 to 16 
contiguous bits in a 1-byte or 2-byte field. The mask specified in the instruction 
determines which bits are tested; a mask bit set to 1 indicates that the 
corresponding data bit is to be tested. A condition code indicates the result of the 
test. 


You can set a bit on by using the INOR, INORI, or LSETON instructions. You 
can reset a bit (set it off) by using the AND, ANDI, or LSETOFF instructions. 


SHIFTL and SHIFTR are used to shift the contents of a register left or right. 
Any significant bits that are shifted out of the register are lost. As the bits are 
shifted, zeros are inserted as padding. A maximum of 16 bits may be shifted for 
each execution of this instruction. a 
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Shifting a number in a register to the left has the effect of multiplying the register 
contents by powers of 2. Shifting a positive number in a register to the right has 
the effect of dividing the register by powers of 2. 


Program Control Instructions 


This section describes the instructions that you will use to: determine the 
sequence in which your program will be executed; to invoke other programs; to 
transfer control to various parts of your program; and to execute single 
instructions outside of the sequence of execution. 3 


Call Programming Instructions 


The APCALL and COBLCALL instructions are the ones you will use to invoke 
another assembler language application program or a COBOL application. 


The FCLENTER instruction is used to receive control and parameters from a 
COBOL program. 


You will use the APRETURN and FCLEXIT instructions to return control to an 
assembler application or to a COBOL program that called your program. 


Passing Data Between Programs 


You can pass data such as operands and addresses between programs by allowing © 
the programs to share the same segment storage or by placing the address of the 
data in a register. In the cases where storage cannot be shared, you can have the 
calling program load the address of an operand into a register with LDRA, and 
the secondary program refer to the field using a DEFRF instruction label that 
refers to that register address. | 


Your assembler language program can use the six-byte registers in segment 0 to 
pass addresses or other values from your program to a called assembler program. 
You must define the specific registers, any segments your program will share with 
the called program, and the called program name in a parameter list selected by 
APCALL. If your program receives parameters from the called program, you 
should either share a segment with the called program that it can use to return 
data, or establish an area selected by a register address that the called program 
can use to return parameters to you. 


Instructions that Release Control 


Branch Instructions 


You may use the LEXIT, LWAIT and PAUSE instructions to discontinue 
execution of your program for a short time or until something happens that should 
cause your program to continue. 


Branching instructions in the 4700 system fall into four categories: those that test 
a condition code set by a previous instruction, those that test a bit switch (on or 
off), those that test an index value, and those that link to a subroutine. 


Branch on Condition Code Instructions 


JUMP, BRAN, BRANL, BRANR, and BRANLR test the condition code set by a 
previous instruction and change the sequence of program execution if the tested 
condition exists. Each bit of the testing value in the branch instruction (the mask 


3-14 47 00 Controller Programming Library, Volume 1: General Controller Programming 


operand) corresponds to a bit in the rightmost half of the condition code byte in 
Segment 1 (at SMSCCD). The branch mask is set using the rightmost 4 bits 
specified in the mask byte when the instruction is coded; for example, if X‘OF’ is 
coded, the branch mask is set to X‘F’. Setting a mask bit to 1 tests the 
corresponding condition code bit. If the branch mask is X‘F’, the branch is always 
taken (an unconditional branch); if the branch mask is X‘0’, the branch is never 
taken (no operation). If the mask is not specified in the instruction, the mask is 
set to X‘F’. 


The branch mask must be set by using a mnemonic; by specifying a hexadecimal 
value; or by specifying the label of an EQUATE instruction. If an EQUATE is 
used, its label should not duplicate any of the mask mnemonics that are defined 
by the 4700 Controller. 


The JUMP Instruction: JUMP is a branch instruction that: 
« Requires only 2 bytes of storage. 

e Is faster than other branches. 

e Has a maximum range of 510 bytes (255 halfwords). 
The branch-to address is generated during assembly. 


The BRAN Instruction: BRAN assembles into a 4-byte instruction that has a range 
of 64K bytes. The branch-to address is generated during assembly. 


The BRANR Instruction. BRANR assembles into a 2-byte instruction. The 
application program must place the branch-to address in the rightmost 2 bytes of a 
register before BRANR is executed. 


Branch on Bit Switch Instructions 


The LIFON and LIFOFF branch instructions are used to control program flow by 
testing a bit (a bit switch) and changing the sequence of program execution if the 
tested switch is on C(LIFON) or off (LIFOFF). If the setting that is tested is not 
found, program execution continues with the next sequential instruction. The 
instructions operate on a 2-byte field, and any single bit in the field may be 
tested. The bits (bit switches) are numbered 0 to 15, starting with the high-order 
bit in the field. 


LIFON and LIFOFF have the ability to conditionally set the bit switch being 
tested. LIFON can set the switch on if it is off, and LIFOFF can set the switch 
off if it is on. The branch is not taken in these cases. 


Two bit-setting instructions, LSETON and LSETOFF, may be used to 
unconditionally set the bit switches tested by the branch instructions. Both 
instructions operate on the two-byte field used by LIFON and LIFOFF. When 
hexadecimal notation is used to specify the bit switches to be set, more than one 
switch may be set with a single instruction execution; for example, specifying 
x‘C000’ in the instruction would set bit switches 0 and 1 on or off as desired. 
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Branch on Index Instruction 


BRANX provides index increment, compare, and branch abilities in a single 
instruction. This instruction can be used to control the number of times a series of 
instructions is executed. The branch-to address is specified in the instruction | 
along with a register that is initialized before BRANX is executed. This register 
contains three 2-byte fields: the comparand, the increment, and the index value. 
The increment is added algebraically to the index value and the sum is placed in 
the index field. The updated index field is then compared with the comparand. If 
the comparison is unequal, the branch is taken. If the comparison is equal, the 
branch is not taken and processing proceeds with the next sequential instruction. 


Branch and Link Instructions 


BRANL and BRANLR store the address of the next sequential instruction if the 
branch is taken. These instructions provide a method of using subroutines. The 
difference between BRANL and BRANLR is in how you specify the branch-to 
address: for BRANL, the address is specified in the instruction; for BRANLR, the 
address must be placed in the register specified by the instruction. 


The BRANL Instruction: BRANL assembles into a 4-byte instruction. The 
branch-to address is specified in the instruction. Depending on the operands 
specified, the return address is placed either in a register or in the return-address 
stack. If the return-address stack is used, LRETURN should be used to return 
control to the next sequential instruction and clear the address from the stack. 


The BRANER Instruction: BRANLR assembles into a 2-byte instruction. The 
branch address must be stored in the branch register before BRANLR is executed. 
The return address is placed in the specified register (1-15) or the return-address 
stack. 


| Instructions that Return Control 


You may use the RETURN and LRETURN instructions to return control 
following one of the Branch-and-Link instructions. 


The LRETURN Instruction: LRETURN assembles into a 2-byte instruction. When 
executed, it removes the latest entry from the return-address stack (last in, first 
out) and gives control to the instruction at that address. 


Return Addresses: For both BRANL and BRANLR, the return address (the 
location of the next sequential instruction) is placed in a register if one of registers 
1 through 15 is specified, or in a specially reserved portion of Segment 1 called 
the return-address stack if register 0 or no register number is specified. The return 
address is stored only if the branch is taken. When a register is specified, the 
return address is placed in the rightmost 2 bytes of the register. 


The return-address stack is managed by the controller on a last-in first-out basis. 
The controller uses the SMSLSE field to keep a count of the number of entries in 
the stack. When a BRANL or BRANLR instruction adds an entry to the stack, 
the controller increases SMSLSE by 1. 


When an LRETURN instruction is executed, the controller decreases SMSLSE by 
1 and executes the instruction whose address was placed in the stack last. 
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The IRETURN Instruction: The IRETURN instruction is used in conjunction with 
the ADRLST and one of the branch-and-link instructions. 


The Execute (LEXEC) Instruction 


The execute instruction, LEXEC, is used to cause out-of-sequence execution of a 
single instruction (the subject instruction). The next sequential instruction after 
LEXEC is performed following execution of the subject instruction (except when 
the subject instruction is an LEXIT, LSEEK, or an instruction that modifies the 
instruction counter). The subject instruction may be any valid executable 
instruction except a jump, branch, or another LEXEC instruction. 


The subject instruction is created by taking an instruction pointed to by LEXEC 
(the addressed instruction) and ORing it with all or part of the data in a register. 


_ The resulting subject instruction is then executed. Both the operation code and 


operands may be modified except for the immediate data field of the WRTI 
instruction. Specifying register 0 suppresses the ORing operation and causes the 
addressed instruction to become the subject instruction. 


The subject instruction exists only for a single execution, the addressed instruction 
and the register are not changed by the ORing. 


| Storage Management Instructions 


Other 4700 Instructions 


You can define segment storage in your program by using the DEFSTOR (Define 
Segment Storage) instruction. You can allocate segment storage by the 
SEGALLOC and SEGFREE, and by the DTACCESS and DTAFREE 
instructions. 


Storage Initialization Instructions 


Scratch-Pad Instruction 


Timer Control Instructions 


Your primary application program can initialize segment storage, that is you can 
set storage to some value or values, by the SINIT (Start Initialization), INITSEG 
(Initialize Segment), and ENDINIT (End Initialization) instructions. This 
initialization will take place when your program is loaded into storage. 


The scratch-pad area (SPA) is a global section of user storage that is separate 
from segmented storage, and accessible to all application programs. The SPA can 
be used to contain a dynamically-changing table, temporary data storage, or a 


- shared area for communication between work stations. 


The 4700 provides three timers for program control and dating, or 
“time-stamping” of system activities and data. 


The time-of-day timer is a variable-format value representing year, month, day, 
hour, minute, and second. Your program may set, adjust, and read the 


time-of-day timer with the LTIME instruction. You can also expand the timer 


format to contain such values as the complete month (such as January) and 
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The Dump Instruction 


weekday (such as Tuesday). Your program can read the expanded timer format | 
with the optional LTIMEV and LTIMET instructions. The resulting values of _ 
either format are available to your program for either dating or branching. The 
interval timers measure the elapsed time, or intervals, of a program execution or 
some other event. Intervals can be as short as 1/256 of a second with the 
optional INTMR instruction. 7 


The high-resolution counter (HRC) measures program activity in intervals of 


1/256 of a second, and can be used as a time-stamp or to control your program 


execution. Your program must define a field to contain the timer value when it is 
read with the LHRT instruction. 


To write any segments or files to a diskette data set use APBDUMP. The data set 
must be defined during the configuration process. When the dump is complete, 
you can use the system monitor to send the dump data set to the host. 


If an APBDUMP instruction is included in the application program, the DEFDMP 
and COPY DEFSMS instructions must also be included. These instructions 
define the buffer used by APBDUMP and provide the locations of Segment 1 


fields required by APBDUMP. 


APBDUMP can be used in the program check routine so that a listing of the 
registers (Segment 0), the location of the instruction that caused the program 
check (Segment 1), and other desired information is available for debugging. 


Note: The Extended Disk and Diskette Access Method (EDAM) is required in 
order for you to use the APBDUMFP instruction. You will find further information 
in the IBM 4700 FCS Controller Programming Library: Volume 6: Control 
Program Generation and in Volume 2: Disk and Diskette Programming. 
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Chapter 4. Coding Rules 


Syntax Notation 


Syntax Notation Key 


This chapter describes the rules by which 4700 application programs must be 
written. The coding rules governing the coding of 4700 assembler instructions are 
a limited set of the same coding and syntax rules used by the 
OS/VS-DOS/VS-VM/370 assembler language. The following sections of this 
manual explain the limitations on those assembler coding rules that you must 
observe when writing 4700 application programs. The prerequisite assembler 
publications listed in the preface of this manual describe the detailed coding and 
syntax rules that apply to the 4700 assembler language as well as error messages 
that could occur during assembly of your program. 


We use a uniform notation to describe the syntax of the controller symbolic 
instructions. The notation indicates which operands you must code and which are 
optional, the options that are available for expressing values, the values assumed 
by the system if you don’t code an operand, and the punctuation. 


CAPITAL LETTERS 
Capital letters indicate values that you must enter exactly as shown. 


lowercase letters 
Lowercase letters indicate where you are to insert a number, character 
string, or keyword in place of the lowercase letters. 


punctuation .,=’Q) 
The period, comma, equal sign, single quotation mark, and parentheses are 
punctuation that you must code exactly as shown. These punctuation 
marks separate the operands of the instructions. You need not code a 
comma preceding a keyword parameter for the first parameter in the 
operand field. Parentheses are sometimes optional, see "ellipsis" below. 


brackets [] 
Brackets indicate that you can choose not to code the elements and 
punctuation they enclose; the operand is optional. 


braces $} 
Braces indicate that you must code the elements and punctuation they 
enclose; the operand is required. 


selecting options 


When you choose from more than one operand, the choices appear like this, 
with vertical bars separating them: 


[Wi213) “oe. 4112933 


or they might appear stacked, like this: 
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Specifying Operands 


underscoring | 
We underscore a value to indicate that if you do not code a value for the 
element, the system assumes the underscored value. The value that the 
system assumes is called a default. In the following examples, if you do not 
code TYPE, the system uses TYPE=1. 


ellipsis... | 
Ellipsis points indicate that you can add one or more additional operands or 
sets of operands, each having the same format. For example, 


W N|— 


[TYPE={1|2[3}] or | mee | 


CASE=(element1,...) 


indicates that you can repeat the syntactical unit (element) preceding the 
ellipsis. The parentheses are not needed if you code only one element. 


Generally, a 4700 assembler instruction performs an operation on two operands 
and replaces one of them with the result. Operands for these instructions are 


designated operand 1 and operand 2. For example, an instruction performing 


addition adds operand 1 and operand 2 and replaces operand 1 with the result. 
Operand 2 remains unchanged. 


Note: When an instruction has only one principal storage reference, the suffix (1 
or 2) has an additional significance. In such an instruction, the suffix identifies 
which part of an Index Register Number Table (IRNT) applies to the storage 
reference. For example, the COMP instruction has one storage reference - 
identified as ‘operand 2’. This means that the second half of the IRNT applies to 
the COMP instruction. See “Segment Indexing” in Appendix F for more 
information. 
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This section of the chapter describes how these operands, which can be either 
defined constants or the contents of registers and/or fields, are designated in the 


assembler instructions. 


operand 1 
Is the value shown in the instruction notation having a suffix of 1. 


Examples are: 


defcon1 

defld1 

(defrf1) 

regl 

(reg1) 

segl 

seg 1 ,disp1 
segl1,disp1,len1 
immdata1 


Each of these are variables that represent a way of selecting a constant or 
value located in a field or register that is operand 1, and is defined later in 
this section. When the operation creates a result, the area containing 
operand 1 usually contains the result unless otherwise noted in the 
instruction description. One or more operand 1 designators can be specified 
for an instruction - any one of which can be used to define the operand. 
They are described collectively, however, as ‘““Operand 1” in the instruction 


description. 


operand 2 
Is described by one or more variables in the syntax notation having a suffix 


of 2. Examples are: 


defcon2 

defld2 

(defrf2) 

reg2 

(reg2) 

seg2 
seg2,disp2 
seg2,disp2,len2 
immdata2 


As in operand 1, one or more of these variables in the syntax notation of 
the instruction description means that operand 2 may be defined as noted; 
the variables are described collectively as ““Operand 2”. Operand 2 is not 
normally changed by the operation unless as described in the instruction 


description. 


The rest of this section describes the variables that select an operand or 
operands. The operand suffix is disregarded in these descriptions, because 
most of these variables can be used to define either operand. 


The operands listed below appear in several controller symbolic 
instructions. A subset of the OS/VS or DOS/VS assembler constants is 
used to code these operands. (Refer to the latest edition of 
OS/VS-DOS/VSE-VM/370 Assembler Language for detailed information 
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on constants.) The following descriptions include the constants that are 
-valid for the operands, unless specified otherwise in the description of the 
individual instructions. 3 


defld 3 : 

This variable represents the label of a DEFLD (Define Field) instruction. 
DEFLD instructions represent storage areas rather than specific values 
themselves, but the storage area is usually initialized to a specific value. 
DEFLD instructions always are coded in the data definition area of the 
program. | 


defcon 
This variable represents the label of a DEFCON (Define Constant) 
instruction. DEFCON instructions define actual values, and cannot be 
- fields that are changed by the instruction. DEFCON instructions are always 
coded in the data definition area of the program. 


label : 
7 This is the label of an instruction, such as a DEFLD, an executable 
instruction that is the target of a branch, or the name of a table. Label 
must be a character string from one to eight characters (unless specified 
otherwise in the descriptions of the individual instructions). The label 
operand follows the rules governing assembler labels; all characters must be 
alphameric, and the first character must be alphabetic. For further 
discussion of labels, refer to the latest edition of 
OV/VS-DOS/VSE-VM/370 Assembler Language. 


reg 
This variable selects one of the sixteen registers available to this application 
program. The value for reg can be 0 through 15, and can be specified as an 
unsigned decimal integer, or the label of an EQUATE instruction that 
refers to an unsigned decimal integer. 


seg 
This variable selects one of the 16 segments that the program can address. 
The value can be 0 through 15, as long as the corresponding segment has 
been defined for the work station. The value 0-15 can be an unsigned 
decimal integer, or the label of an EQUATE instruction that defines the 
integer. | 


disp | Z 
This variable defines the displacement into a segment. The value of disp 
cannot be larger than the size of the related segment. The variables seg and 
disp are usually used together to define a field. Specify disp as an unsigned 
decimal integer ranging 0 to 65 534, or as the label of an EQUATE 

_ instruction that defines the integer. 


len 
This variable defines the length of a field in a segment. The beginning of 
the field is usually located by seg,disp. The allowable maximum that len 
can be varies according to the instruction. Specify len as an unsigned 
decimal integer or the label of an EQUATE instruction that defines the 
integer. 
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(reg) 


This variable defines a register containing an address that locates a storage 
area. Register addresses have the following format: 


Bits Contents 

00-07 Set to Zero 

08-11 Segment space [ID 
12-15 Segment 

16-31 Length 

32-47 Displacement 


Register addresses can be created in a register by the LDRA (Load Register 
Address) instruction. You can use registers to pass data addresses from 
your program to another. Specify reg as an unsigned decimal integer or the 
label of an EQUATE instruction specifying the integer. The parentheses 
must be coded. 


(defrf) 


This is the label of a DEFRF instruction. The DEFRF instruction identifies 
a register (containing a register address), a displacement, and a length. The 
displacement to the storage area is calculated by adding the displacement in 
the register to the displacement from the DEFRF instruction. The length of 
the storage area is the length in the DEFRF. DEFRF instructions can be 
used to define multiple dummy section (DSECT) overlays. The 
parentheses must be coded. 


immdata 


data 


Defines immediate data, usually as operand 2, that becomes part of, and is 
an operand of the instruction with which it is used. 


Immdata must be 1 or 2 bytes of data specified as one of the valid types 
discussed below or you can specify the label of an EQUATE instruction. 
Immdata can also be a decimal value such as: 4 or 16. With DOS/VS there 
is a limit of eight characters in the immediate data including the descriptors. 
For example, B‘10101’ is counted as eight characters, because B and the 
single quotation marks are included in the count. 


Note: If a single quotation mark (’) or ampersand (&) is included in a data 
string, two quotation marks or ampersands must be coded in order to obtain 
the desired data. For example, if the data wanted is the word can’t it must 
be coded as can’t. Similarly, if the data wanted is the phrase one & two, it 
must be coded as one && two. 


Is any character (C), hexadecimal (X), binary (B), fullword (F), or 
halfword (H) specification in one of the following forms: 


dddt‘xxx...x’ 
tLnn‘xxx...x’ 
tL.nn‘xxx...x’ 


where ddd is a decimal number indicating the number of times the constant 
is to be generated (if only a single constant is required, this number is not 
needed); ¢ is one of the valid types (C, X, B, F, or H); nn is a decimal 
number indicating the actual length of the constant; and xxx...x is the data 
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that makes up the constant, enclosed in single quotation marks for all types 
except address constants, which are enclosed in parentheses. 


An address (A or Y) specification may also be used, but must be in the 
form: | 


dddA(label-apbname) or dddA (label- label) a 
ALn(label-apbname) or ALn(label-label) or ALn(label) 
AL.n(label-apbname) or AL.n(label-label) 

dddY (label-apbname) or ddd Y (label-label) 
YLn(label-apbname) or YLn(label-label) or YLn(label) 
YL.n(label-apbname) or YL.n(label-label) 


when using the standard OS/VS and DOS/VS assembler. Jabel is the label 
of the instruction and apbname is the CSECT name. If an address 
specification is not in this form, the assembler builds an RLD entry which 
will be rejected by the FORMAT service program. 


Notes: 


1. The above forms of data specification are the only ones valid for a 
controller application program. Any other forms may produce 
unexpected results. 

2. AL3 and AL4 address constants have specific meanings for the Host 
Support program. 


ccmask 
| Must be a hexadecimal value specified as X‘xx’ (the rightmost 4 bits of the 
hexadecimal value are used as the mask; the other 4 bits are ignored); a 
binary value specified as B‘nnnn’, a mnemonic (refer to the next section for 
a list of the mnemonics representing coded values), or the label of an 
EQUATE instruction that is associated with one of these values. 


Labels and Mnemonics 


To avoid possible conflict, the labels of the standard definitions copied by the 
COPY instructions should not be repeated as labels of controller symbolic 
instructions. 


Mnemonics are used i in several ways in the 4700 assembly language; as a 
representation of data sets and logical work stations and as a mask in a branch or 
JUMP instruction. A mnemonic used in a branch or JUMP instruction represents 
a coded value that is the value of a condition code that may have been set. The 
following are the mnemonics that have special meaning when coding a controller 
application program. : 
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Coded values for files: 


A Absolute address 

C Composite file 

CR Control Record 

DSID 

DSK Disk or diskette 

1s Log 

P Permanent file _ 
PBN Physical Block Number 
PLR Data set logical record 
TF1 

TF2 Temporary Files 

TF3 

TF4 


Coded value for a logical work station 
ST Station 


Coded values for masks: 


Mnemonic Hex Value Explanation 


BL 08 A significant (one) bit is lost. 

BU 04 The device is not available (busy). 

EQ 01 The values compared are equal. 

GE 05 The first operand is greater than or equal to the second 
operand. 

GT 04 The first operand is greater than the second operand. 

Ip 02 The ID specified is invalid, the name was not found, or the ID 
was out of the range of valid IDs. | | 

IL 02 An incorrect length is specified. 

IO 04 An invalid Segment 0 is specified: Segment 0 operator A has 
been set as the default. 

IS 04 An invalid segment is specified in the parameter list. 

LE 03 The first operand is less than or equal to the second operand. 

1 BS 8 02 The first operand is less than the second. 

MD 08 A modulus error occurred. 

ME ~— 04 The tested field and mask are identical. 

MO 08 All tested bits are 1’s. 

MX 02 The tested bits are mixed 1’s and 0’s. 

MZ 01 All tested bits are 0 or the mask bits are all 0. 

NE 06 The values compared are not equal. 

NG 02 The result or data is negative. 

NL 01 No significant (one) bits are lost. 

NN 04 The field is not numeric. 

NO 08 No Segment 0 for operator B exists. 

NS 04 There is an invalid device specification. 

NZ 02 The result or data is nonzero (logical instructions only). 

OK 01 The operation is successful. 
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4-8 


Mnemonic Hex Value Explanation — 


OV 08 An overflow occurred. 

PS 04 ~~ ~~ The result or data is positive. 
SP. 04 There is insufficient segment space. 

ST 02 Status is returned. 

SU 08 The segment is in use. 

TR 08 Truncation occurred. 

ZD 08 Division by zero was attempted. 

ZO 01 The result or data is zero. 


The mnemonics listed above are those that are available for branching 
instructions. If none of these mnemonics are meaningful to the branch operation, 
use an EQUATE instruction to define another mnemonic. 


These mnemonics may also be used as labels, but when they are used in ways 
other than those stated in the descriptions of the individual instructions, they may 
cause an error or an unexpected value to be assembled. For example, if a 
mnemonic is coded in an instruction for which the mnemonic is not valid, an 
assembler error occurs. The mnemonics are defined to represent specific coded 
values and have meaning only for the instructions that specifically define their 
use. The mnemonic representation of a coded value may be defined by some other 
means, such as an EQUATE, but the coded value defined by an instruction has 
priority over this other mnemonic definition. For example, if the following is 
coded: 


EQ EQUATE X‘50’ 
BRAN EQ,ADDR 


no assembler error is indicated, but the EQ in the BRAN instruction will be 
assembled as hex 01 not hex 50. 


If, however, the following is coded: 


EQ EQUATE = X‘50” 
TSTMSKI FLD,EQ 


‘EQ’ will become hex 50 because TSTMSKI does not define a coded value for this 
mnemonic. 
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The following are non-executable instructions. They are not machine instructions 
and do not appear within the assembled application program. 


« APOPT 

« BEGIN 

« COPY 

e DEFLD 

e DEFRF 

« DEFSTOR 
« ENDINIT 
« ENDSEG 

e EQUATE 
e FINISH 

e INITSEG 

e Ln 

¢« LDSECT 

e LEJECT 

« LEND 

« LSPACE 

« PLPCMD 
« PRINTI 

« REBASE 

« SAVEBASE 
« SECTION 
« SEGCODE 
e SINIT 

e USEBASE 


The following are non-executable instructions. They are not machine instructions 
but they do become data within the application program and you must place them 
properly. For example, DEFCON instructions cannot be interspersed with 
executable instructions unless you branch around them. 


e ADRLST 

¢e DEFCON 
e DEFDEL 

e DEFDMP 
e LSEEKPL 
e LTIMET 

e LTRTBEG 
e LTRTENT 
e LTRTGEN 
e MASK 

e MOD 

¢ TABLE 
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ADDFLD algebraically adds the binary value from a field to the binary contents 
of a register and places the result in the register. The leftmost sign bit of the 
result is propagated to the left in the register. 


ADDFLD--Add Field 


The length of the field must not exceed 6 bytes. The leftmost bit of the field is 
the sign. If the length is 0, data in the register is not changed, but the condition 
code is set according to that register data. 


Name Operation Operand 


defcon2 
defld2 
[label] ADDFLD regi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand I 
A register to which operand 2 will be added. 


operand 2 
A field to be added to operand 1. The field length is 0-6 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O1 ZO The result is 0. 
Q2 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 3 
Q5 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
O08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overlfow occurred and the result is less than 0. 
OC An overflow occurfed and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-3 


5-4 4700 Controller Programming Library, Volume 1: General Controller Programming 


ADDFLDL 
ADDFLDL--Add Field Logical 


ADDFLDL adds the contents of a 6-byte field to a register. If the field is less 
than 6 bytes in length, it is functionally extended to 6 bytes before addition by 
propagating zeros. ADDFLDL then adds the binary value from the field to the 
binary contents of the register and places the result in the register. 


The length of the field must not exceed 6 bytes. The leftmost bit of the result is 
the sign. If the length is 0, data in the register is not changed, but the condition 
code is set according to that register data. 


Name Operation Operand 


defcon2 
defld2 
[label] ADDFLDL reg], (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 | 
Is a register to which operand 2 will be added. 


operand 2 
Is a field to be added to operand 1. The field length must be 0-6 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
OS GE The result is greater than or equal to 0. 
06 NE The result is not equal to O. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overlfow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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ADDREG--Add Register 


ADDREG algebraically adds the binary contents of two registers and places the 
result in the register specified by reg/. 


Name Operation Operand 


[label] ADDREG reg1,reg2 


operand 1 
A register to which operand 2 will be added. 


operand 2 
A register containing the value to be added to the first operand. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overlfow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks: None are set. 
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This instruction adds the zoned decimal value in operand 1 to the zoned decimal 
operand 2 value, and replaces operand 1 with the result. The length of either 
operand is 1-63 bytes; operands greater than 15 bytes long must be specified 
using register addressing. 


ADDZ--Add Zoned Decimal 


Note: This is an optional instruction, and requires that module P31 be specified 
on the OPTMOD configuration macro. 


Name Operation Operand 


defcon2 
: defldi def1ld2 
[label] ADDZ (defrf1) ; (defrf2) 
(reg!) (reg2 ) 


seg1,disp1,len1 seg2,disp2,len2 


operand 1 
Defines a zoned decimal field to which operand 2 will be added. This field 
cannot be in Segment 14; nor can the label of a DEFCON be specified. If 
the result is less than the size of operand 1, each remaining high-order byte 
is filled with hex FO. 


operand 2 
Defines a zoned decimal field to be added to operand 1. 


Condition Codes: The following can be set. 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
Oh) GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overlfow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 
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-ADRLS 
| ADRLST--Return Address List 


ADRLST creates a list of return addresses to which the IRETURN instruction will 
refer. 


‘Name Operation Operand 


[label] ADRLST [addr-1,addr-2,...] 


addr-n 
Is a label. The maximum number of labels allowed is 7. The operands are 
positional. If you omit one operand then the address of the next sequential 
instruction (NSI) will be created in that position of the address list. If you 
code no labels then one address will be created pointing to the next 
sequential instruction. 


The format of the address list is as follows: 


Byte 
8) | FF {[count| 
2 | addr-1 | 
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You may use AND to ‘AND’ from 1 to 255 bytes of field 2 with the same number 
of bytes in field 1 and place the result in field 1. The length of field 2 determines 
the length of the operation. 


AND--AND Field 


When the AND is performed, a bit in the result is set to 1 if the corresponding bits 
in both fields are 1’s. 


Name Operation Operand 


defcon2 
— defldt defld2 
[label] AND (defrf1) ; (defrf2 ) 
(reg! ) — (reg2) 
seg1,disp1 seg2,disp2,len2 


operand I 


Defines a field to which the second operand will be ANDed. The segment 
number cannot be 14. 


operand 2 
Defines a field to be ANDed to the first operand. The length (1-255) 
determines how many bytes are in the AND operation. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is all 0’s. 
02 NZ The result is mixed 1’s and Q’s, or all 1’s. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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ANDI--AND Field Immediate 


ANDI is used to ‘AND’ 1 or 2 bytes of immediate data with field 1 and place the 
result in field 1. 


When the AND is performed, a bit in the result is set to 1 if the corresponding bits 
in both the field and the immediate data are 1’s. 


Name Operation Operand 


defldt1 

[label] ANDI (defrf1) ,immdata2 
(regi) 
seg1,displ 


operand 1 
Defines a field to which the immediate data will be ANDed. The segment 
number cannot be 14. 


operand 2 | 
Is 1 or 2 bytes of immediate data. The length of the immediate data 


determines the length of the operation. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is all 0’s. 
02 NZ The result is mixed 1’s and 0’s, or all 1’s. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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This instruction writes the contents of one or more segments, files, or the system 
log to a diskette data set that can be allocated during operating diskette creation. 
When the dump is completed, APBDUMP restores all register and SMS field 
values except register 15. Operation resumes with the next instruction following 
APBDUMP. 


| APBDUMP--DUMP Segment or File to Diskette 


Notes: 

To use this instruction you must code: 
1. the EDAM operand on the FILES configuration macro 
2. the COPY DEFSMS instruction - before a DEFDMP 


3. the DEFDMP instruction to reserve a 454-byte area at the beginning of a 
segment. 


Name Operation Operand 


seg 
[label] APBDUMP (seg,...) [ FILE] [, 1D=dumpid] 
FILE 


seg 
Is the number of the segment to be dumped. The segment numbers are 
specified in ascending order. 
Note: If the segment specified is the same as the buffer segment specified 
in DEFDMP, no dump of this segment occurs. 

list 


Is the list of files to be dumped. There is no dump for composite files; the 
list can include any combination of the following: 
TF1,TF2, TF3, TF4 for temporary file subdivisions 
L for the log 
P for the permanent file 
Note: At least one operand (seg or FILE) must be coded with APBDUMP. 


dumpid 
Is a unique identifier for this dump. 


Condition Codes: This instruction may modify the condition code, however; any 
condition code returned will have no significance. 


Program Checks ( hex ): 01, 02, 03, 09, 11 may be set. 
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APCALL | 


| APCALL--Call Assembler Application Program 


This instruction calls and passes control to another 4700 assembler application 
program. The called program begins execution with shared or private 
work-station storage. 


APCALL requires a 12-byte parameter list with the following format: 


Bytes Function 

0-7 Called program name 
8-9 Shared segment flags 
10-11 Register flags 


The called program name must be the same as that specified by the APBNM 
parameter of the called program’s BEGIN statement. 


The 16 bits of the shared segment flags field correspond, from left to right, to the 
application program’s Segments 0-15. To share a segment between the calling 
and called application program, the corresponding flag bit must be set to 0. Ifa 
bit is set to 1 and the called application program’s DEFSTOR statement defines 
that segment, a new segment will be allocated. Regardless of their flag bit 
settings, Segments 1 and 15 are always shared; Segment 13 is preallocated and 
shared across all stations; and Segment 14 is always allocated. 


New initialized segment headers are created for newly allocated segments. For 
shared segments, the calling program’s segment headers are passed unchanged by 
APCALL. The 4700 also creates segment headers for Segments 1 and 15. 


The bits in the 2-byte register flag field correspond, from left to right, to the 
calling program’s sixteen 6-byte registers. If Segment 0 was not passed (that is, it 
was allocated for the called program) and a register flag bit is 1, the 
corresponding register’s contents are copied to the equivalent register for the 
called program. Segments and registers can be shared in any combination 
between the calling and called programs. For example, a register can contain a 
register address pointing to a data area of a dummy section (DSECT) ina 
common shared storage segment. 


Note: Shared segments will pass data in both directions across the 
APCALL/APRETURN interface, but data in passed registers (Segment 0 not 
shared) will not be returned to the calling program. 


The called program may reside in controller storage or may reside on diskette or 
disk until called. If programs are to be transient you must include the required 
macros in your system configuration. See the APLIST and TRANPL 
configuration macros in the IBM 4700 Finance Communication System 
Programming Library: Volume 6. 

APCALL also does the following: 


1. Creates a segment space ID for the called program. 


2. Controls the base of the return address stack for each segment space ID. 
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3. Saves the alternate delimiter table pointer (SMSDEL) and the delimiter 
control mask (SMSDCB). SMSDEL will be initialized to zero for the called 
program. e2 


4. Saves and clears any segment indexing that may be active. 


Name Operation Operand > . 


defcon2 
defld2 
[label] APCALL (defrf2) [ ,WAIT={Y|N}] 
(reg2 ) 
seg2,disp2 


operand 2 | : 
is a field containing the 12-byte parameter list. Any length specified for 
operand 2 is ignored. 


WAIT 
controls whether or not the station will wait if storage is not available to 
load a non-resident program. If you specify WAIT=N and storage is not 
available, an immediate return is made to the calling program with a 
condition code of 04. The default is WAIT=Y which causes the station to 
be put in wait status until storage becomes available. The WAIT parameter 
is ignored for a resident program. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O01 OK Instruction executed successfully. This condition 


code is actually the result of an APRETURN 
instruction because if APCALL is successful, 
control is given to the called program. The called 
program performs an APRETURN and control 
returns to the calling program. 

02 Status is stored; the status code is contained in 
SMSDST. See the IBM 4700 Controller 
Programming Library: Volume 2 for explanation of 
the status codes. 

04 WAITEN is specified and there is no available 
area to load the requested transient application 
program. 


Program Checks (Hex): 01, 02, 04, 09, 20, 21, 22, 23, 24, 25, 27, and 28 can be 
set. 
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Programming Notes 


1. 


You must establish interrupt handling conventions between calling and called 
programs. For a given station, asynchronous interrupts that are not processed 
by acalled program are held until another program gets control. The program 
that gets control must have an interrupt handling routine or an appropriate 
entry point defined. This program should be able to determine why the 
interrupt occurred. Alternatively, the original program should process the 
interrupt. 


If asynchronous interrupts occur while the logical work station is idle and the 
current application program has no entry point defined, the interrupts are 
held until the program is redispatched and can clear them. However, because 
no processing can occur, the station remains idle or appears locked up. 


If the called application’s program check routine resets the link stack counter 
(SMSLSB), it must not be zeroed. Its contents must be equal to the current 
link stack base value (SMSLSB). 


The SMSDEL field is zeroed for the called application program and restored 
by APRETURN. SMSDCRB is passed unchanged to the called program, but is 
restored by APRETURN. 


All called application programs, whether transient or resident, may also have 
overlays. 


The space allocated to a particular segment space ID may be permanent or 
temporary as determined by the USE parameter of the DEFSTOR instruction. 
If you specify USE=STATIC the area allocated, when that program is called 
the first time, is retained unchanged (segments, segment headers, and 
registers) until the controller is [PLed again. 
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| APOPT--Application Program Options 


The APOPT instruction specifies application program assembly options. APOPT 
must be the first assembler instruction in each assembly, and can be specified only 
once. 


Name Operation Operand 


[label] APOPT [RELOC={Y|N}] [,SPLIT={Y{N}] 
[, DIRNAME=name, {NEW|OLD} ] 
[,DISP={NEW|OLD}] [,YL2={Y1N}] 
[, INDEX={nnn|0}] [,DISP16={Y|N} ] 


[ ,REFRESH={Y | N} ] 


RELOC 
Specifies whether the relocate option is selected allowing modules to be 
used in the LINKAPB function (Y) or no relocate and not allowing the 
modules to be used in the LINKAPB function (N). 


SPLIT 
Specifies whether the application program is split. If your application is to 
be split, see Appendix F, otherwise do not code this operand. 


DIRNAME 
DIRNAME=(name,NEW) specifies that the named directory should be 
created on the host library, and that directory entries for all sections in the 
assembly should be added to the new directory. If a directory with the 
same name already exists, another directory will not be created and the 
entries for the sections will not be added to the old directory. 


DIRNAME=(name,OLD) specifies that the named directory already exists 
and that directory entries for all sections in the assembly should. be added. 
(An entry will not be added if a duplicate entry already exists in the 
directory.) If the directory does not exist, a new one is created and entries 
for all sections in the assembly are added to it. 


DISP 
DISP=NEW specifies that the section or sections are new and should be 
added to the host library only if a section with the same name does not 
already exist. 


DISP=OLD (or an omitted operand) specifies that a section or sections 
may already exist with the same name(s) as the section(s) being assembled, 
and that the sections being assembled should replace those that exist. If a 
section does not exist, the new section will be added. 
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YL2=Y specifies that all AL2 address constants used as operands of 


DEFCON instructions in the following sections should be changed to | 


relocatable YL2 address constants. Be careful when using this operand 
because the DEFCON instruction cannot distinguish between expressions 
that are not intended to be relocated and those that are. Therefore, you 
should manually change the source statements if there is any question about 
the use of AL2 address constants in your application program. 


If YL2=N is specified or the operand is omitted, AL2 address constants 
will not be altered. 


INDEX 


Provides for a unique name for each CSECT as required for OVLYSEC 
and SEGCODE sections that are assembled with RELOC=Y option and 
when the sections are separately assembled. Values may be from 0 to 998. 
The constant CSECT has the name specified on the macro; the instruction 
CSECT has a generated name (BOKIN index number) that includes the 
number specified by INDEX. Each instruction control section increases the 


value by one to create a unique name. 


DISP16 | 


Specifies whether 12- or 16-bit addresses are created for DEFCON 
instructions (RELOC must specify Y). If DISP16 is Y, 16-bit address 
fields are created, regardless of the displacement size. If N (the default) is 


_ specified, the displacement (12- or 16-bit) determines the field size. 


REFRESH 


REFRESH=Y means that this program is read-only; that is, it is not 
dynamically modified by any other program. It also means that the 4700 
may reuse the main storage occupied by this program when it is not 


- operating. The 4700 will reload the program into storage when it is to be 


referenced subsequently. REFRESH=N means that this program may be 


dynamically modified and will not be reloaded by the 4700. 


If a program contains an OVLYSEC instruction then it will be assembled as 
if you specified REFRESH=N 
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APRETURN--Return to Calling Program 
This instruction is issued by a called 4700 assembler application program to return 
control to the calling program. Control is returned with the following conditions 
set: 


1. Allocated segments belonging to this program are released unless its 
DEFSTOR statement specified USE=STATIC. 


2. The current segment space ID is restored to reflect what had originally been 
assigned to the calling program by the controller. 


3. The return address stack pointer, and alternate delimiter table address, and 
the delimiter control mask are restored. 


4. Segment indexing is restored if it was active. 


5. Control passes to the instruction following the APCALL instruction in the 
calling program. 


Name Operation Operand 


[label] APRETURN 


Condition Codes: The condition code is always set to hex 01 (mnemonic OK). 
Program Checks (hex): 26 can be set. 
Programming Notes 


1. If an APRETURN frees storage for which another station has been waiting, 
then the storage will be allocated to the other station and the request for that 
station will be processed. 


2. You can test the condition code of APCALL in an instruction following the 
APCALL instruction. If the APCALL fails (for example, a diskette read error 
of a transient program) then the condition code will not be hex 01. If the 
APCALL is successful then control will be given to the called program and 
APRETURN will set condition code hex 01 when control is returned to the 
calling program. 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-25 


5-26 4700 Controller Programming Library, Volume 1: General Controller Programming 


BEGIN identifies the beginning of a controller application program during 
assembly and builds a CSECT with the name identified by APBNM=name, an 
ADDMEM statement, and a control block that is used to identify the controller 
application program and its entry points. At least one asynchronous entry point 
must be specified. A 48-byte area is reserved at the beginning of each controller 
application program whether or not all operands are specified. BEGIN can be 
preceded by APOPT only. 


BEGIN--Assembly Control 


Name Operation Operand 


[label] BEGIN APBNM=(name [, {vn|1}]) ,DATE=mmddyy 
[,PC=label] [,DEL=label] [,STP=label] 
[, APENTRY=label] [,API=label] 
[,ATD=label] [,ACP=label] [,AST=label] 
| [,NUMOVLY=n] [,ATM=label] [,ALA=label] 


[, INSNAME=name] [,DSECT={Y|N} ] 


APBNM | 


Specifies the name and version number of the controller application 
program: 


name 
Is the eight-character name of the controller application program. 
This name is also used in the APBNM operand of the STATION 
configuration macro instruction. 


Is the version number of this assembly (a decimal integer from 0 to 
99). If it is omitted, 1 is assumed. 


DATE 
Is the month, day, and year of this assembly. 


PC 
Is the entry point to be used when the program encounters a program 
check. ‘label’ can be an external symbol when RELOC=Y is specified in 
the APOPT instruction. 


Is the location of the delimiter table (refer to the DEFDEL instruction for a 
description of defining delimiters). If DEL is not specified, SMSDEL must 
be dynamically altered to point to the delimiter table. ‘label’ may be an 
external symbol when RELOC=Y is specified in the APOPT instruction. 
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STP » & 
Is the startup entry point. After controller initialization is completed, 
control is passed to each logical station that uses this program and that was 
configured with a startup flag during the controller configuration procedure 
(that is, the STARTUP operand on the STATION macro instruction is 
specified as Y). If a startup entry point is not specified, control is not 

_ passed to a station until one of the other entry points is used. ‘label’ may be 
an external symbol when RELOC=Y is specified in the APOPT 
instruction. 


APENTRY | 
Defines the label of the entry point for executing this application program 
when it is called by another program using APCALL. 


Note: You must include a DEFSTOR instruction in your program in order 
to use the APENTRY operand. 


Is the label of the entry point to be used when a program interrupt 
(LPOST) is presented to a station that has relinquished control by an 
LEXIT instruction. The ‘label’ may be an external symbol when 
RELOC=Y is specified in the APOPT instruction. 


ATD | 
Is the entry point to be used whenever an asynchronous operation is started 
on a device assigned to a station using this controller application program 
(for example, an operator starts typing on a 4704 to initiate a transaction). 
The device can be at any Logical Device Address (LDA) that was specified 
for asynchronous input. This entry point is used only when a station has | 
relinquished control by means of an LEXIT instruction or has never been in 
control. ‘label’ may be an external symbol when RELOC=yY is specified in | 
the APOPT instruction. | 


ACP 
Is the entry point to be used whenever the central processor issues an 
asynchronous write to a station that has relinquished control by means of 
an LEXIT instruction or that has never been in control. ‘label’ may be an 
external symbol when RELOC=yY is specified in the APOPT instruction. 


AST 
Is the entry point to be used whenever one station transmits data to another 
station that has relinquished control by means of an LEXIT instruction or 
that has never been in control. ‘label’ may be an external symbol when 
RELOC=Y is specified in the APOPT instruction. 


NUMOVLY . | 
This operand is not used. It is included for compatibility reasons only. 
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ATM 


ALA 


Is the asynchronous entry point to be used when a station’s timer request is 
honored. A timer request is generated when the station is idle, and the 
SMS timer (SMSTMR) is not 0 and is equal to, or less than, the GMS timer 
(GMSTMR). If no other asynchronous requests are pending, the station is 
given control at the entry point specified by the ATM, and the SMSTMR is 
reset to 0. If other asynchronous requests are pending, the timer request is 
canceled, but the SMSTMR value is unchanged. If timer entry processing is 
not desired, the SMSTMR value should remain at 0. A program check may 
result in SMSTMR is set to a nonzero value when ATM is not specified. 
‘label’ may be an external symbol when RELOC=Y is specified in the 
APOPT instruction. 


Is the Alternate Line Attachment program entry point where ’label’ is a 
1-to-8-character name. Processing begins at this point when an 
SNA-Primary device presents data or status to an idle station. You must 
specify this entry point name if asynchronous entry can occur. An 
SNA-Primary/ALA LREAD is normally coded at this entry. 


INSNAME 


This operand is used only in split application programs. See Appendix F for 
further information. 


DSECT 


Note: 


Specifies whether DEFLD instructions expand as DSs or EQUs. (DS and 
EQU are System/370 instructions.) If DSECT=Y is specified, DEFLD 
instructions expand as DSs within a dsect. For each segment (0 through 
15) there is a unique dsect named BOK$Sx, where x equals one character, 
0 through F. In this case, the value field of the cross-reference listing 
contains the displacement of the field defined by the DEFLD instruction. 
If DSECT=N is specified, DEFLD instructions expand as EQUs and no 
dsects are formed. In the latter case, the value field of the cross-reference 
listing is meaningless. 


The label of an EQUATE instruction cannot be used in the operands for 


the BEGIN instruction. 


Programming Notes: Asynchronous entry point priorities are as follows: 


DANA WN 


CPU message pending 
ALA message pending 
terminal message pending 
station message pending 
program interrupt pending 
timer interrupt pending. 
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BRAN--Branch 


BRAN conditionally or unconditionally changes the sequence of program 
execution. If any bit is set to 1 in the mask that is specified in the instruction and 
the corresponding bit is set in the present condition code, then the condition is 
satisfied, and the branch is taken. When an unconditional branch or a branch 
with the condition satisfied is executed, operation continues with the instruction 
referred to by the BRAN instruction. Otherwise, operation continues with the 
next sequential instruction. 


Name Operation Operand 


[label] BRAN [ccmask|X'F',] branch address 


ccmask 
Is the condition to be met for the branch to be taken (refer to the condition 
codes set by individual instructions). The ccmask can be in the form of a 
mnemonic (see Chapter 4 for a list of the mnemonics representing coded 
values), a 1-byte hexadecimal expression, a 4-bit binary expression, or the 
label of an EQUATE instruction expressing one of the preceding numeric 
values. If the operand is omitted or if X‘F’ is coded then the branch is 
always performed. If ccmask is specified as hex 0, the branch is never 
taken. 


branch address 
Is the label of the instruction to be executed if the branch is taken. The 
label may be an external symbol when RELOC=Y is specified in the 
APOPT instruction. 

Condition Codes: The code is not changed. 


Program Checks (hex): OB can be set. 
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BRANL conditionally or unconditionally changes the sequence of program 
execution and stores the location of the next sequential instruction. If any bit in 
the mask specified in the instruction is set and the corresponding bit in the present 
condition code is set, then the condition is satisfied and the branch is taken. 

When an unconditional branch or a branch with the condition satisfied is 
executed, the location of the next sequential instruction is: 


BRANL--Branch and Link 


¢ placed in the return-address stack in the segment 1 machine section (SMS), if 
no register, or register 0 is specified; 


or 
e placed in the register specified by the BRANL instruction; 


and execution continues with the instruction to which the BRANL instruction 
refers. Otherwise, execution continues with the next sequential instruction. 


Use the BRANR instruction to return to the next sequential instruction from a 
BRANL when a register is specified; and the LRETURN instruction to return 
otherwise. The number of entries that the station’s return-address stack can hold 
may be specified as 0 to 255 (default=6) by coding the RETSTK operand of the 
STATION macro. Each BRANL, BRANLR, and LSEEKP instruction that uses 
the return-address stack adds one entry, and each LRETURN instruction removes 
one entry. It is possible to overflow the stack, which results in program check. 


Name Operation Operand 


[label] BRANL [ccmask|X'F',] branch address [,reg] 


ccmask 
Is the condition to be met for the branch to be taken (refer to the condition 
codes set by individual instructions). If the operand is omitted or if X‘F’ is 
coded then the branch is always performed. If ccmask is specified as hex 0, 
the branch is never taken. 


branch address 
Is the label of the instruction to be executed if the branch is taken. The 
label may be an external symbol when RELOC=Y is specified in the 
APOPT instruction. | 


Is a register (1-15) in which the location of the next sequential instruction 
is to be stored if the branch is taken. The location of the NSI is stored in 
the rightmost 2 bytes of the register. The leftmost 4 bytes are set to zeros. 
If this operand is omitted or specified as 0, the location is stored in the 
return-address stack in segment 1. 


Condition Codes: The code is not changed. 


Program Checks (hex): 04 or OB can be set. 
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BRANLR 


BRANLR--Branch and Link Register 


BRANLR conditionally or unconditionally changes the sequence of program 
execution. If any bit in the mask specified in the instruction and the 
corresponding bit in the present condition code is set, the condition is satisfied, 
and the branch is taken. When an unconditional branch or a branch with the — 
condition satisfied is executed, the location of the next sequential instruction is: 


e placed in the register (reg2) specified in the BRANLR instruction 
e or placed in the return-address stack of segment 1. 


If the return register (reg2) is not specified or is specified as 0, the branch is taken 
to the instruction whose location is specified by reg/. Otherwise, execution 
continues with the next sequential instruction. | 


When the NSI location is placed in the return-address stack, the program should 
issue an LRETURN instruction to return control to the NSI. When the NSI 
location is stored in a register, the program should issue a BRANR instruction 
specifying the return register to return control to the next sequential instruction. 


The number of entries that the station’s return-address stack can hold may be 
specified as 0 to 255 (default=6) by coding the RETSTK operand of the 
STATION macro. Each BRANL, BRANLR, or LSEEKP instruction that uses 
the return-address stack adds one entry, and each LRETURN instruction removes 
one entry. It is possible to overflow the stack. The overflow results in program 
check 04. 


Name Operation Operand 


[label] BRANLR [ccmask|X'F',] reg1 [,reg] 


ccmask 
Is the condition to be met for the branch to be taken (refer to the condition 
codes set by individual instructions). If the operand is omitted or if X‘F’ is 
coded then the branch is always performed. If ccmask is specified as hex 0, 
the branch is never taken. 


regl 
Is a register (0-15) that contains the location of the instruction to be 
executed if the branch is taken. The location must be in the rightmost 2 
bytes. 

reg2 


Is a register (1-15) in which the location of the next sequential instruction 
is to be stored. The location of the NSI is stored in the rightmost 2 bytes, 
and the leftmost 4 bytes of the register are zeroed. If reg2 is not specified 
or is specified as 0, the return location is placed in the return-address stack 
in segment 1. The same register may be used for both the branch-to and 
the return locations. 


Condition Codes: The code is not changed. 


Program Checks (hex): 04 or OB can be set. 
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BRANR--Branch Register 


BRANR conditionally or unconditionally changes the sequence of program 
execution. If any bit in the mask specified in the instruction and the 
corresponding bit in the present condition code is set, the condition is satisfied, 
and the branch is taken. When an unconditional branch or a branch with the 
condition satisfied is performed, execution continues with the instruction referred 
to by the register in the BRANR instruction. Otherwise, execution continues with 
the next sequential instruction. 


Name Operation Operand 


[label] BRANR [ccmask|X'F',] reg 


ccmask 
Is the condition to be met for the branch to be taken (refer to the condition 
codes set by individual instructions). If the operand is omitted or if X‘F’ is 
coded then the branch is always performed. If the ccmask is specified as 
hex O, the branch is never taken. 


reg 
Is a register (0-15) that contains the location of the instruction to be 
executed if the branch is taken. 


Condition Codes: The code is not changed. 


Program Checks (hex): OB may be set. 
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BRANX--Branch on Index 


The BRANX instruction specifies a register and a branch address. The register 
contains three 2-byte fields: 


Bytes Field Range of Values 
0,1 Comparand 0 to 65 535 
2,3 Increment -32768 to 32767 
4.5 Index 0 to 65 535 


The increment is added to the index and the sum is placed into the index field. 
The index field is compared with the comparand field. If the comparison is not 
equal, a branch is made to the branch address; on equal comparison, no branching 
occurs. 


An increment value of zero defaults to minus one. 


An overflow during addition is ignored and does not affect the comparison. 


Name Operation Operand 


[label] BRANX reg,branch address 


reg 
Is a register (0-15) that contains the comparand, increment, and index. 


branch address 
Is the label of the instruction to be executed if the updated index field is not 
equal to the comparand field. The label may be an external symbol when 
RELOC=yY is specified in the APOPT instruction. 

Condition Code: The code is not changed. 

Program Checks (hex): OB can be set. 

Programming Notes: The following example shows a use of the BRANX 


instruction for loop control. Assume a loop is to be executed three times with the 
index having successive values of 20, 25, and 30. 
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Note: Be sure that the sum of the initial index value plus the repeated additions | 
of the increment will eventually equal the comparand. 


CONST DEFCON H‘35’,H‘S’,H‘20? 1 
MVFXD REG2,CONST 8 

LOOP ls 
: 3 
BRANX R02,LOOP 4 


1 Defines constants for comparand, increment, and index values. 
2 Initializes register 2 for loop control. 
3 Loop to be executed. 


4 Performs loop function until the index in register 2 equals 
the comparand. 
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CAFLD--Compare Arithmetic Field 


CAFLD algebraically compares the value of the data in a register with the value 
of the data in a field and sets the condition code to indicate the result. Six bytes 
are compared. If the field is less than 6 bytes long, CAFLD compares the field as 
if its length were increased to 6 bytes by the propagation of the field’s leftmost 
bit. 


Name Operation Operand 


defcon2 
defld2 
[label] CAFLD regl, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a register containing the first comparand. 


operand 2 
Is a field containing the other comparand. The length of the field is from 0 


to 6 bytes. If 0 is specified, the register contents are compared to 0. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

O01 EQ The values are equal. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

OS GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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CAFLDL 


CAFLDL--Compare Arithmetic Field Logical 


CAFLDL compares the contents of a register with the contents of a 6-byte field. 
If the field is less than 6 bytes, CAFLDL compares the field as if its length is 
increased to 6 bytes by propagating zeros. CAFLDL sets a condition code to 
indicate the result of the comparison. 


Name Operation Operand 


defcon2 
defld2 
[label] CAFLDL regi, (defrf2 ) 
(reg2 ) 
seg2,disp2,len2 


operand | 
Is a register containing the first comparand. 


operand 2 
Is a field containing the other comparand. The length of the field is from 0 
to 6 bytes. If 0 is specified, the register contents are compared to 0. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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CAREG algebraically compares the arithmetic value of the contents of two 
registers and sets the condition code to indicate the result. 


CAREG--Compare Arithmetic Register 


Name Operation Operand 


[label] CAREG reg1,reg2 


operand 1 
Is a register containing the first comparand. 


operand 2 
Is a register containing the second comparand. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. | | 

04 GT The first operand is greater than the second 
operand. 

O5 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks: None are set. 
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CCDI--Compare Character Data Immediate 


The CCDI instruction compares the logical value of a field with the immediate 
operand and sets the condition code to indicate the result. Either 1 or 2 bytes are 
compared. 


Name Operation Operand 


defcont 
defldt 
[label] CCDI (defrfi) ,immdata2 
(reg1 ) 
seg1,disp1 


operand 1 
Is a field to compare with operand 2. 


operand 2 
Is 1 or 2 bytes of immediate data. If only 1 byte of immediate data is 
specified, CCDI performs a 1-byte comparison. If 2 bytes of a eciai 
data are specified, CCDI performs a 2-byte comparison. 


Condition Code: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

O01 EQ The values are equal. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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CCFLD--Compare Character Field 


CCFLD compares the logical value of a segment-header addressed field with the 
logical value of another field, and sets the condition code to indicate the result. 
The length of the two fields is assumed to be the same. 


When performing logical comparisons, fields are compared from left to right and 
the comparison ends when a difference is found or the fields are determined to be 
equal. The comparison is based on EBCDIC codes of the bytes having the same 
relative positions. 


Name Operation Operand 


defcon2 
defld2 
[label] CCFLD segi, (defrf2 ) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a field in the specified segment to compare with operand 2. The field 
location is determined by the primary field pointer. 


operand 2 
Is a field to compare with operand 1. The length of the field is 0 to 15 
unless you specify register addressing, which allows a length ranging 0 to 65 
535. If 0, the length of the comparison is determined by the field length 
indicator of seg. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal or the length of the field in 
segl is O and no operation (NOP) occurs. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01, 02, or 27 can be set. 
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CCFXD 


CCFXD--Compare Character Fixed 


CCFXD compares the logical values of two fixed fields and sets the condition 
code to indicate the result. The length of the two fields is assumed to be the same. 


Name Operation Operand 
defcont defcon2 
defldt defld2 
[label] CCFXD defrfi) : (defrf2 , 
(reg1 ) (reg2 ) 
seg1,displ seg2,disp2,len2 
operand 1 


Is a field to be compared with operand 2. 


operand 2 
Is a field to be compared with the field defined in operand 1. The length of 
this field is from 0 to 65 535; operands greater than 255 bytes long must be 
selected using register addressing. The number of bytes to compare is 
determined by this field length. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal or the length of field 2 is 0, 
and no operation (NOP) occurs. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 

: second operand. 

06 NE The first operand and the second operand are not 

equal. 


Program Checks (hex): 01, 02, or 27 can be set. 
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Programming Notes: For example, when the new balance is received from the — 
central processor, the application program may compare account numbers to 
ensure that the correct data has been received. Below are the instructions that 
perkorn the comparison. — 


CPACCT = DEFLD _ CPINSEG,O,7 


| 1 

OUTACCT DEFLD — OUTSEG,2,7 2 
CHKRESP CCFXD OUTACCT,CPACCT 3 
BRAN NE,DIFRESP 4 


1 Defines the account number within the field transmitted from the 
central processor. 


Defines the account number within the field sent to the central 
processor. 


Compares the two account numbers. 


Branches to a routine that processes the message if the account numbers 
are not equal. ; a 


aw N 
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CCSEG compares the logical value of two segment-header addressed fields and 
sets the condition code to indicate the result. The comparison starts at the 
primary field pointer (PFP) in each of the segments. The length of the 
comparison is determined by the field length indicator of the second segment. If 
segi and seg2 are the same segment, the comparison field of seg/ starts at the 
secondary field pointer; the secondary field pointer, however, does not change. 


CCSEG--Compare Character Segment 


Name Operation Operand 


[label] CCSEG seg1,seg2 


operand 1 
Is a field in the specified segment to compare with operand 2. 


operand 2 
Is a field in the specified segment to compare with operand 1. The length 
of this field can be 0 to 65 535. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal or the length of the field in 
operand 2 is 0, and no operation (NOP) occurs. 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01 or 02 can be set. 
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COBLCALL 


COBLCALL--Call a COBOL Application Program 


This instruction must be used by a 4700 assembler program to call another 
application program written in the COBOL programming language. This 
instruction creates the parameter list protocol expected by the COBOL program. 
COBLCALL sets register 1 to the parameter list, then does an APCALL. 
Register 2 is used as a work register. Refer to the 4700 COBOL Programmer’s 
Guide for instructions and other requirements. 


Name Operation Operand 


defld1 7 defld2 
[label] COBLCALL ap, (defrf1) ; (defrf2 ) 


(req!) (reg2 ) 


defld3 
’ (defrf3) joa Ss 
(reg3 ) 


Names the COBOL program being called. 


ap 


operand 1 
_ Defines the location of a parameter list containing six-byte register 
addresses, one for each parameter that is to be passed to the COBOL 
program. 


operand 2, 3, and so on. 
Define the parameters to be passed to the called COBOL program by 
COLBCALL. COBLCALL stores a register address for each parameter in 
the parameter list defined by operand 1. 


Condition Codes: This instruction may modify the condition code, however, any 
condition code returned will have no significance. 


Program Checks( hex ): 01, 02, 03, 09, 11, and 20 - 29. 
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COMP--Compress and Compact 


COMP compresses and compacts an input data stream, based on the information 
in a parameter list, and stores the results in a specified segment. See Chapter 3 
for a detailed discussion of compression and compaction. | 


Note: COMP requires the optional P27 module, which may be included via the 
P27 operand on the OPTMOD configuration macro. 


COMP requires information coded in a parameter list (see COPY DEFCPL) 
containing the following fields: 


CPLINS 
2-byte field containing the segment number of the input area. The input 
area contains the data to be processed. 


CPLIND 
2-byte field containing the displacement into the segment to the input area. 


CPLINL | | 
2-byte field containing the length of the input area. 


CPLOUS 
2-byte field containing the segment number of the output area. At the 
completion of COMP, the output area contains the compressed/compacted 
data. The segment may not be 14. 


CPLOUD 
2-byte field containing the displacement into the segment to the output 
area. 


CPLOUL 
2-byte field containing the length of the output area. 


CPLPRI 
1-byte field specifying the prime compression character (the character that 
will be represented by SCB type 10xxxxxx). During compression, any 
occurrence of from 3 to 63 repetitions of the prime character is replaced by 
one byte containing the compression code (10xxxxxx), where ‘xxxxxx’ is 
the count of prime character repetitions. 


CPLFLG 

1-byte input flag field 

Bit Meaning 

0 =1 Compaction requested. CPLTBS and CPLTBD must be 
initialized to the segment and displacement of a 
compaction table (see the COMPTB instruction). 

0 =Q Compaction not requested. 

1 = Compression requested. 

1 a Compression not requested. 

2-7 =Q Reserved. 
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Note: Compaction, compression or both functions may be 
requested. At least one of the functions must be requested. 


CPLTBS | 
2-byte field containing the segment number of the compaction table 
information area. See the COMPTB instruction. 


CPLTBD 
_ 2-byte field containing the displacement into the segment to the 
compaction table information area. The assumed length of the area is 257 
bytes. 


During operation of the COMP instruction, the controller sets the following 
fields in the parameter list: 


CPLIND 
Contains the displacement to the next input byte. If the input area is 
exhausted, CPLIND will point to the byte immediately following the input 
area. 


CPLINL 
Contains the remaining length of the input area. When the input area is 
exhausted, CPLINL contains zero. 


CPLOUD : 
Contains the displacement to the next output byte. If the output area is full, 
CPLOUD will point to the byte immediately following the output area. 


CPLOUL 
Contains the remaining length of the output area. When the output area is 
full, CPLOUL contains zero. 


CPLTST 
Contains the completion status for COMP. When the condition code is 01, 
CPLTST will be zero. When the condition code is 02, CPLTST will contain 
a code that indicates the reason for termination of the COMP instruction. 


CPLTOV (X‘80’): Indicates the output for the next input byte would 
extend beyond the output area. 


CPLTIL (X‘40’): Indicates that the length of the input area was initialized 
to zero. 


Name Operation Operand 


defld2 
[label] COMP defrf2) 

(reg2 ) 

seg2,disp2. 
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operand 2 
Is a field containing the parameter list (see the COPY DEFCPL instruction 
in Appendix B). The length specified is ignored because the parameter list 
is defined as a fixed length area. The parameter list must not be in Segment 
14. 


When using register addressing to locate a parameter list, the parameter list 
can be located in a noncurrent segment space. However, if the parameter 
list contains the address (segment, displacement) of other storage areas 
(that is, input and output areas, tables) the other storage areas are always in 
the current segment space. 


Note: The prime compression characters for a data stream compressed at 
the host or some other point on the network must be passed to the receiving 


program using standard SNA protocols. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK The instruction was executed successfully. 
02 ST COMP was terminated. See CPLTST in the DEFCPL 


parameter list. 


Program Checks: 01, 02, 09, or 27 can be set. 
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COMPTB--Build Compaction Table 


COMPTB dynamically builds a 257-byte compaction table for use by the COMP 
instruction. See Chapter 3 and the COMP instruction for a discussion of 
compaction. 


The COMPTB operands specify the location of the input data to be formatted 
into the compaction table, and the area in which the compaction table is to be 
built. You select the characters that will appear in the data to be compacted (the 
compaction set), and the subset of those characters that will appear most 
frequently in pairs in the data stream (the master characters). COMPTB formats 
this information into the compaction table for use by COMP. 


Note: This instruction requires the P27 module, which may be included via the 
P27 operand on the OPTMOD configuration macro. 


Coding Input for COMPTB: The COMPTB instruction builds a compaction table, 
in the correct format, from information you supply in an input area. The input 
area contains: 

e The number of master characters 


e The master characters, themselves 


e The remainder of the compaction set, arranged beginning with those 
characters least likely to occur in the data stream to be compacted. 


To begin, calculate the number of characters that can appear in the data stream. 
Assume a compaction set of 87 possible characters in the data stream. The 
following table: 


Compaction Master 
Set Size Characters 
255 1 
252 2 
247 3 
240 4 
231 5 
220 6 
207 7 
192 8 
175 9 
156 10 
135 11 
112 12 
87 13 
60 14 
31 15 
16 16 


indicates that 13 master characters are used with an 87-character compaction set. 
So, the first byte of the COMPTB input area would be coded as: 


MCHLGTH DEFCON X‘OD’ 13 master characters 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-61 


The compaction set must contain a number of characters that matches exactly one 
of the sizes in the left-hand column (Compaction Set Size). If it does not match, 
the compaction set must be expanded to contain the next higher increment. 


For master characters, assume that the following 13 characters will occur in the 
data stream most regularly in pairs: 


| ade giln orstu ‘space’ 
The next portion of the COMPTB input area would be coded as: 
MCHARS DEFCON X‘818485878993959699A2A3A440’ 


the hexadecimal equivalents of the master characters. The remainder of the 
COMPTEB input area will be the hexadecimal equivalents of the remaining 
nonmaster characters in the compaction set: 


COMPSET DEFCON X‘4C6E7C828386889192949798A5 
| A6A7TA8A9C1C2C3C4C5C6C7C8C9 
D1D2D3D4D5D6D7D8D9E2E3E4E5 
E6E7E8E9FOF1F2F3F4F5F6F7F8 
F94A4B4D4E505A5B5C5D5E6061 
6B6C6D6F7A7B7D7E7F’ 


You may then code the COMPTB instruction referring to the input area and the 
output area where the compaction table will be created. 


The location of the input area is indicated by the primary field pointer of the 
segment specified by operand 1. A length of 17 is assumed when the number of 
master characters (M) is 16. A length of 257 minus M x M is assumed when M is 
less than 16. 


Name Operation Operand 


defld2 
[label] COMPTB segl, (defrf2 ) 
| (reg2 ) 
seg2,disp2 


operand I 
Is a field containing input data. 


operand 2 


Is a field that will contain the compaction table. The field must not be in 
Segment 14. A length of 257 is assumed. 
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Condition Codes: One of the following may be set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful execution. 
04 The number of master characters chosen is zero, 
or greater than 16. : 
08 The same character occurs more than once in the 


compaction set. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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This instruction compares the zoned decimal data in operands 1 and 2 
algebraically; neither operand is altered by the operation. The length of either 
operand is from 1 to 63 bytes; operands longer than 15 bytes must be addressed 
using register addressing. A shorter operand is padded on the left with decimal 
zeros (hex FO) to make it the same length as the longer operand. 


COMPZ--Compare Zoned Decimal 


Note: This is an optional instruction, and requires that optional module P31 be 
specified on the OPTMOD macro. | 


Name Operation Operand 


defcont | defconz2 
defldi defld2 
[label] COMPZ (defrfl ) ; (defrf2) 
(reg1) (reg2 ) 
seg1,disp1,len1 seg2,disp2,len2 


operand 1 
Is a field containing the first zoned decimal comparand. 


operand 2 
Is a field containing the second zoned decimal comparand. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

01 EQ The values are equal. | 

02 LT The first operand is less than the second operand. 

03 LE The first operand is less than or equal to the 
second operand. 

04 GT The first operand is greater than the second 
operand. 

05 GE The first operand is greater than or equal to the 
second operand. 

06 NE The first operand and the second operand are not 
equal. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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| COPY--Copy Source Code 


The COPY instruction copies predefined source code into your application 
program during the assembly process. It can be used to make system definitions 
for: segments 0, 1, 14, and 15; parameter lists; and other source code - part of 
your program. System definitions provided by the 4700 are in Appendix B. 


You can also define your own copy files and include them in the subsystem library 
of the 4700 Host Support. (See 4700 Host Support User’s Guide, SC31-0020. 


Because system definitions are subject to change, you should refer to system 
information and parameter lists using the labels provided. Fixed fields that are 


defined within system copy files should be referred to individually, for example, 
COPY DEFAPB contains: 


APBLTH DEFLD § 14,,2 
APBROD DEFLD | 14,,2 


Because the DEFAPB definition can change, you should not code the following 
DEFLD and expect it to contain both APBLTH and APBROD: 


BOTH DEFLD  14,APBLTH,4 


COPY instructions should be included in the data definition section of your 
application program. 

The fields defined in DEFGMS and DEFSMS are primarily intended to be 
read-only by your application program, however, application programs do have 
access to these fields. Be careful in modifying any of these fields. Modification 
by your application program can affect its own subsequent operation. 


For a more detailed description of the fields defined by system copy files, refer to 
Appendix B. 


Name Operation Operand 


COPY copyfilename 


copyfilename | 
Is the name of the file to be copied. 
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This instruction transfers control to another location in the program depending on 
the content of a two-byte location in storage. If the location contains zero, 
execution resumes at the next instruction following CRETN. If the location is 
nonzero, the value is used as a displacement from the beginning of the program to 
find the point where execution begins; the nonzero location is set to zero by 
CRETN. 


CRETN--Conditional Return (COBOL) 


This instruction has been implemented to facilitate support for COBOL and is not 
considered useful for general purpose for COBOL and is not considered useful for 
general purpose application programming. 


Note: This instruction requires that module P34 be specified on the OPTMOD 
configuration macro. 


Name Operation Operand 


defld2 
[label] CRETN (defrf2) 
| (reg2 ) 
seg2,disp2 
operand 2 
Is a field containing the two-byte value. The field must not be in Segment 
14. 


Condition Code: The condition code is unchanged. 


Program Checks (hex): 01, 02, 09, OB, or 27 can be set. 
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DECOMP decompresses and optionally decompacts a data stream based on the 
information contained in the DEFDCP parameter list defined by the COPY 
DEFDCP instruction. 


DECOMP--Decompress and Decompact 


Note: DECOMP requires the P26 optional module, which you may include on the 
OPTMOD configuration instruction. 


See Chapter 3 for a discussion of decompression and decompaction. 


Before issuing the DECOMP instruction to decompress/decompact a data stream, 
complete these fields in the parameter list: 


DCPINS 
Is a 2-byte field containing the segment number of the segment containing 
the input data to be processed. 


DCPIND 
Is a 2-byte field containing the displacement of the input data into the input 
segment. 


DCPINL 
Is a 2-byte field containing the length of the input data. 


DCPOUS 
Is a 2-byte field containing the segment number of the segment that is to 
contain output data. Do not use Segment 14. 


DCPOUD 
Is a 2-byte field containing the displacement into the output segment. 


DCPOUL 
Is a 2-byte field containing the length of the output area. 


DCPPRI 
Is a 1-byte field containing the prime compression character used during 
compression. Remember, the String Control Character for compressed 
prime characters contains only the count of repeated characters, not the 
character itself. This prime character must be supplied to the 
decompression procedure. 


DCPFLG 
Is a one-byte compaction request flag: 


1xxxxxxx Input contains compacted data. DCPTBS and DCPTBD 
must also be set if this value is specified. 


DCPTBS 


Is a 2-byte field containing the segment number of the segment containing 
the decompaction table (see the DECOMPTB instruction). 
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DCPTBD i 
Isa oye field. containing the displacement of the decompaction table. 


When DECOMP i is ESipleis: the following fields in the DEFDCP 
parameter list are completed to indicate the status of the operation. 


DCPIND 
Contains the displacement of the next SCB in the input data stream. When 
the data stream contains no further SCBs, this field contains the 
a a of the byte puma following the input area. 


DCPINL 
Contains the number of Sree remaining in the input area. When the 
entire input stream is processed, this field contains zero. 

DCPOUD 
Contains the displacement of the next available byte in the output area. 


When the output area is full, this field contains the displacement of the byte 
immediately following the output area. 


DCPOUL 
Contains the number of bytes remaining in the output area. When the 
output area is exhausted, this field contains zero. 


DCPTST a 
Contains the completion status of the DECOMP operation. If the 
condition code is hex 01, this field contains zero. When the condition code 
is hex 02, this field indicates the reason for premature ending of DECOMP. 


DCPTOV (X‘80’) 
Indicates the output area is not large enough to contain the 
decompressed/decompacted data for the current SCB. 


When output overflow occurs, decompression/decompaction ends as if the 
SCB causing the overflow had not been processed. Although partially 
processed data from the current SCB may appear in the output area, the 

input and output areas’ displacements and lengths (DCPIND, DCPINL, 
DCPOUD, DCPOUL) reflect the completion status of the last fully 
processed SCB. 


DCPTIV (X‘40’) 
Indicates the remaining length of the input area is not of sufficient size to 
‘contain the current SCB’s associated data. For a 
non-compressed/non-compacted SCB or for a compact code SCB, 
DCPINL is not large enough to contain the SCB plus the number of bytes 
indicated by the SCB count field. For a repeat-next-character SCB, the 
remaining length of the input area is 1 (DCPINL=1) and is therefore not 
large enough to contain both the SCB and the byte to be duplicated. © 


When input overflow occurs, decompression/decompaction is terminated as 
if the SCB causing the overflow had not been processed. 
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DCPTCE (X‘20’) 
Indicates the input area contains a compact code SCB. The parameter list 
does not specify input data in compact code. 


Decompression/decompaction ends as if the compact code SCB had not 
been processed. 


DCPTSL(X‘10’) 
Indicates the current SCB count field equals B‘OO0000’. 


Decompression /decompaction ends as if the invalid SCB had not been 
processed. 


DCPTIL (X‘08’) 
Indicates that the length of the input area was initialized to zero. 


Name Operation Operand 


defld2 
[label] DECOMP (defrf2 ) 

(reg2 ) 

seg2,disp2 


operand 2 
Is a field containing the parameter list (see the COPY DEFDCP 
instruction). The length specified is ignored because the parameter list is 
defined as a fixed length area. The parameter list must not be in Segment 
14. | 


When using register addressing to locate a parameter list, the parameter list 
can be located in a noncurrent segment space. However, if the parameter 
list contains the address (segment, displacement) of other storage areas 
(that is, input/output areas, tables), the other storage areas are always in 
the current segment space. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful completion. 
02 ST Processing terminated; see DCPTST for status code. 


Program Checks (hex): 01, 02, 09, 11, or 27 may be set. 
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DECOMPTB 
DECOMPTB--Build a Decompaction Table 


DECOMPTB builds a 256-byte decompaction table for use by the DECOMP 
instruction in decompacting a compacted data stream. 


Note: DECOMPTB requires the P26 module, which may be included via the P26 
operand on the OPTMOD configuration macro. 


The DECOMPTB operands specify the location of the input data to be formatted 
into the decompaction table, and the area in which the decompaction table is to 
be built. The input for the decompaction table must be the same as that used to 
build the compaction table (see COMPTB) with which the data stream was 
compacted. 


The input field’s location is indicated by the primary field pointer. A field length 
of 17 is assumed when the number of master characters is 16. When the number 
of master characters is less than 16 the field length is assumed to be 257 less the 
square of the number of master characters. 


Name Operation Operand 


defld2 
| (defrf2) 
[label] DECOMPTB seg1, (reg2 ) 
seg2,disp2 


operand 1 
Is a field in the specified segment that contains the input used to create the 
decompaction table. 


operand 2 
Is a field into which the decompaction table will be built. The field must 
not be in Segment 14. DECOMPTB assumes a length of 257 bytes for this 
operand. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful completion. 
04 The number of master characters is zero or greater 


than 16. 


Program Checks (hex): 01, 02, 09, and 27 can be set. 
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: FCON 


DEFCON--Define Constant 


DEFCON becomes a data string within Segment 14 (the controller application 
program). It must be specified before any of the other instructions that refer to 
the data string. The specification of data is the same as for an assembler language 
DC instruction, but fewer types of data may be specified. 


Note: The maximum number of DEFCONSs that can be included in an assembly is 
4095. 


Name Operation Operand 


[label] DEFCON datai[,data2]...[,datan]} [,0] 


data-datan 
Is any character (C), hexadecimal (X), binary (B), fullword (F), or 
halfword (H) specification in one of the following forms: 


dddt‘xxx...x’ 
tLnn‘xxx...x’ 
tL.nn‘xxx...x’ 


where ddd is a decimal number indicating the number of times the constant 
is to be generated (if only a single constant is required, this number is not 
needed); ¢ is one of the valid types listed above; nn is a decimal number 
indicating the actual length of the constant; and xxx...x is the data that 
makes up the constant, enclosed in single quotation marks for all types 
except address constants which are enclosed in parentheses. 


An address (A or Y) specification may also be used, but must be in the form: 


dddA(label-apbname) or dddA (label-label) 
ALn(label-apbname) or ALn(label-label) 
AL.n(label-apbname) or AL.n(label-label) 
dddY(label-apbname) or ddd Y (label-label) 
YLn(label-apbname) or YLn(label-label) or YLn(label) 
YL.n(label-apbname) or YL.n(label-label) 


When using the standard OS/VS and DOS/VS assembler, label is the label of the 
instruction and apbname is the CSECT name. If not in this form, the assembler 
builds an RLD entry. ‘label’ in the form YLn (label) may be an external symbol 
when RELOC=Y is specified in the APOPT instruction. Note that AL3 and 
AL4 address constants have specific meanings for the host support and should not 
be used to create an RLD entry. The only valid relocatable address constant is 
YL2 or Y(label). All other A or Y specifications should be for non-relocatable 
expressions. 


Note: The above forms of data specification are the only ones valid for a 
controller application program. Any other forms may produce unexpected results. 


0 
Associates a length of 0 with this constant. 
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Programming Notes: For example, the following instructions define a message in 
Segment 14 and move it to an output area in Segment 2: 


OPMSG DEFCON C‘STOP PAYMENT’ 


FIELD2 DEFLD 2,10,20 


MVFXD FIELD2,OPMSG (The number of characters moved 
is determined by the length of the 
source field, OPMSG.) 


Note that, if DSECT=Y is specified on the BEGIN instruction, a DSECT name of 
BQOK$Sn (where n is the segment number from 0 to F) will be generated for each - 
segment referenced in a DEFLD or DEFCON instruction. This DSECT name can 
then be used to generate values with absolute expressions. For example, if the 
following instructions are coded: 


INPUT DEFLD § 4,2,8 
DEFCON AL2(INPUT-BQK$S4) 


the DEFCON will generate a two-byte address of the beginning of the field name 
INPUT into Segment 4. 
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DEFDEL 


DEFDEL--Define Delimiters 


DEFDEL becomes a list of characters that will be recognized as field or message 
delimiters. The use of these characters is controlled by an associated mask and 
the delimiter control byte in Segment 1 (SMSDCRB field). If any corresponding 
bits (between the delimiter control byte and the mask in the instruction) are both 
set (=1), the delimiter is recognized as valid. The set of delimiters used can be 
altered by changing the delimiter control byte. 


Only one DEFDEL instruction is used in a controller application program when 
DEL is specified in the BEGIN instruction. If DEL is not specified, multiple 
DEFDELs may be used. The address of the delimiter table must be specified by: 


e setting SMSDEL with the displacement into Segment 14 of the beginning of a 
delimiter table or 


¢« loading the address of a delimiter table into a register, setting the register 
number in SMSDRG, and setting SMSDEL to hex FFFF. 


The station saves and restores delimiter status (SMSDEL,SMSDCB) as the 
application programs are called and released. 


Any 1-byte value may be specified as a delimiter. Printable characters, however, 
should be avoided because they may appear in a field, and the controller would 
mistake data for delimiters. Also, if the field will be transmitted to one of the 
terminals, values from hex 00 to hex 3F should not be used because they are 
reserved for control characters. 


Name Operation Operand 


label DEFDEL (char,mask) , (char,mask),. 


char 
Is any byte of data to be recognized as a delimiter. The maximum number 
of characters allowed is 255. 


mask 
Is any 1-byte data expression. The bit configuration created is used as the 


mask. 


The char and mask operands may be expressed as hexadecimal (X‘nn’), 
character (C‘c’), or binary (B‘nnnnnnnn’) data. 


Note: The label of an EQUATE instruction cannot be used as an operand 
for the DEFDEL instruction. 
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Programming Notes: Delimiters can be divided into sets using the mask associated 
with each delimiter; all delimiters in a set have the same mask. Delimiter sets are 
used when several types of operations are performed at the same keyboard. For 
example, the application program. may support both normal transactions and an 
adding machine function. A period, minus sign, or slash might be an acceptable 
delimiter during normal processing, but might be data when the teller is using the 

adding machine function. A field in Segment 1, SMSDCB, is set by the 
application program to indicate which delimiters are in use; if any corresponding 
bits in the SMSDCB and the instruction mask are set (=1), the delimiter is 
recognized by the controller. 


Assume, for example, that three delimiters are being used, and the following 
masks have been associated with them (the values used as delimiters are not 


shown; they are referred to as 1, 2, and 3): 


Delimiter Mask 


1 X01’ 
2 X02’ 
3 X*80’ 


If SMSDCB has been set to X‘01’, only delimiter 1 is recognized. (The result of 
ANDing the value in SMSDCB and the mask associated with delimiter 1 is not 0.) 
If SMSDCB has been set to X‘03’, both delimiter 1 and 2 are recognized. If 
SMSDCB has been set to X‘82’, both delimiter 2 and 3 are recognized. If 
SMSDCEB has been set to X‘FFP’, all delimiters are recognized. 


SMSDCB is set in two ways: 


e By specifying the initial value in the DELSET operand of the STATION 
configuration macro instruction. 


« By instructions in the application program. 


The initial value is set for each station when the controller is loaded and altered 
only by the application program. 


To speed up the scan for delimiters, the DEFDEL instruction can be used to 
create a number of delimiter tables, each containing a relatively few entries. You 
must then load the address of the desired delimiter table into the SMSDEL field 
or a register number into the SMSDRG field in Segment 1. With the use of 
register addressing, a delimeter table may be found in segments other than 14, as 
well as in segment space different from that of the application referring to it. 
Under application program control, the tables can be switched as desired. If this 
approach is taken, specification of a delimiter table address must not be made in 
the BEGIN instruction. 
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When SETFPL and SETSFP scan for a delimiter, each character in the field is 
checked against the one-byte values in the delimiter table. The checking 
procedure used by the controller changes, depending on whether the table 
contains multiple specifications of a single one-byte value or the table consists 
entirely of unique one-byte values. The DEFDEL instruction will determine 
whether there are multiple specifications of a single one-byte value when the 
DEFDEL instruction is assembled. 


If the delimiter table contains multiple specifications of a single one-byte value, 
the controller will check each one-byte value until a match is made between the 
character in the field and the value in the table, or until the end of the table is 
reached. If a match is found, the controller will check for a valid mask. If the 
mask is not valid, the controller will resume checking the delimiter table until 
another match is found, so that the mask can be checked, or until the end of the 
table is reached. If the mask is valid, the controller will set the appropriate field 
pointer. Any time the end of the delimiter table is reached, the controller begins 
processing the next character in the field. 


If the delimiter table consists of unique one-byte values, checking proceeds in the 
same manner as it does for tables with multiple specifications of a single one-byte 
value until a match is found between a character in the field and the one-byte 
value in the delimiter table. If the mask is not valid, the controller immediately 
begins processing the next character in the field without checking the remaining 
one-byte values in the delimiter table. 


Any one byte value may be specified as a delimiter. Printable characters, 
however, should be avoided because they may be within a field and the controller 
could mistake them for delimiters. Also, if the field will be read from or written to 
a terminal then the hex values from 00 to 3F should not be used because they are 
reserved as control characters. 
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_DEFDMP _ 


DEFDMP--Define APBDUMP Buffer 


DEFDMP defines the constants necessary for the APBDUMP instruction and 
defines a segment for APBDUMP to use as a buffer for its processing. DEFDMP 
is required if APBDUMP is used, and should be issued only once. It must be 
issued before APBDUMP, but after COPY DEFSMS. It should be coded with the 
data definition instructions of the controller application program, and must occur 
before decimal location 4095 in Segment 14. 


Name Operation Operand 


[label] DEFDMP SEG=n 


Is the number of the segment (2-12, or 13) that APBDUMP can use asa 
buffer during its execution. The buffer must be greater than, or equal to, 
454 bytes and must begin at locatiori 0 in the segment. 


Note: The data in this buffer area before APBDUMFP is issued is lost when 


APBDUMP is executed; thus, if Segment 15 is specified, the data in the 
global machine section (GMS) is lost. 
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DEFLD associates a label with an area of segment storage. This area can then be 
referred to in other instructions without altering the field pointer or length 
indicator of the actual segment. DEFLD, however, must be coded before any of 
the other instructions that refer to the field it defines. 


DEFLD--Define Field 


Note: The maximum number of DEFLDs that may be included in an assembly is 
4095. 


Name Operation Operand 


disp len 
[label] DEFLD seg, (abs exp) ; (abs exp) 
* 


[, BDY=HALF ] 


seg | 
Is the number (0-15) of the segment in which the field is defined, or is the 
label of an EQUATE instruction that has a value of 0-15. 


disp 
Is the location of the field within the segment or the label of a previous 
DEFLD or DEFCON instruction. If the label of a DEFLD or DEFCON 
instruction is used, the location value assigned to this DEFLD instruction is 
the same as that specified in the instruction indicated by the label. If the 
disp operand is omitted, the value assumed is 0 for the first occurrence of a 
DEFLD instruction referring to a particular segment, or is the sum of the 
location and length of the last DEFLD instruction that referred to the 
segment. 


Note: If RELOC=yY is specified in the APOPT instruction, specifying a 
label in an external CSECT will result in an error. 


abs exp | 
Is an absolute expression of the location of the field within the segment. 
When used in place of length, it is an absolute expression of the length of 
the defined field. The absolute expression may be: 


An absolute value. 

The label of an EQUATE instruction. 

The label of another DEFLD, a DEFRF, or DEFCON instruction. 

The displacement attribute of a DEFLD, a DEFRF, or a DEFCON;; by 
specifying the label of the DEFLD, DEFRF, or DEFCON as follows: 


Sa 


D:label 


5. The length attribute of a DEFLD, DEFRF, or DEFCON instruction; by 
specifying the label of the instruction as follows: 


L:label 
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6. An arithmetic expression using the above five expressions in the 
following forms: 


a. (abs exp + abs exp) 
b. (abs exp — abs exp) 
c. (abs exp * abs exp) 
d. (abs exp/abs exp) 


When the label of a DEFLD, DEFCON or DEFRF is used without an attribute 
modifier, the value of the expression is the displacement of the field when used in 
the displacement operand, and i is the value of the field length when used in the 
length operand. 


When the label of an EQUATE instruction is used, the value of the EQUATE 
must be an absolute number. 


* 


Indicates that the field is to begin at the highest displacement that has been 
defined by previous DEFLD’s for this segment. 


Note: The value of disp, the absolute expression, or the sum value of the 
last DEFLD location plus its length must not exceed 65 535 bytes. 


len 
Is the length of the defined field (0 to 65 535). The length must agree with 
any length limitations set by instructions that refer to this DEFLD. 


BDY=HALF 
Aligns the field on a halfword boundary. When the specified displacement 
is not on a halfword boundary, BDY=HALLF aligns the field on the next 
halfword boundary. If this operand is omitted, the field is aligned on a byte 
boundary only. 


Programming Notes: 
e When you are coding the instruction 
[label] DEFLD _ seg,[disp],len 
you should omit the disp operand or it should be the label of a previous 
DEFLD or DEFCON. The disp operand is used to redefine fields within 
previously defined fields. 

e When the assembler language instruction format provides for the choice defld 
or seg,disp[, len], use defld. This may require the addition of a DEFLD 
instruction to define seg,disp, len, if the DEFLD does not already exist. 

Using DEFLD you could define fields as follows: 

FIELD 1 DEFLD 3,20,10 
Length of field 1 


Displacement of field 1 
Number of the segment 
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FIELD2 DEFLD 2,10,20 
Length of field 2 
Displacement of field 2 
Number of the segment 
DEFLD can be used to define overlapping fields. For example: 


FIELD1 DEFLD  3,0,20 
FIELDS DEFLD 3,10,20 


DEFLD will calculate the displacement of the next sequential field if a 
displacement is not specified. For example: 


FIELD1 DEFLD 3,0,10 
FIELD2 DEFLD 3,,10 


The displacement of the beginning of FIELD2 is set to the first byte after the end 
of FIELD1. 
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DEFRF--Define a Modified Register Address Field 


This instruction associates a ‘label’ with a segment, displacement, and length for 
modified register addressing. The most DEFRF instructions that your program 
can contain is 4095. 


Name Operation Operand 


disp 
label DEFRF reg, (abs exp) , { len|(abs exp) } 
(label ) 


reg 
Is the register (0-15) that contains the register address. 


disp 
Is the displacement (0 - 65 535) added to the register address to create a 
modified register address that locates the specified field. 

abs exp 


Is an absolute expression of the location of the field within the segment. 
When used in place of length, it is an absolute expression of the length of 
the defined field. The absolute expression may be: 


An absolute value. 

The label of an EQUATE instruction. 

The label of another DEFLD, a DEFRF, or DEFCON instruction. 

The displacement attribute of a DEFLD, a DEFRF, or a DEFCON; by 
specifying the label of the DEFLD, DEFRF, or DEFCON as follows; 


hai ake ask a 


D:label 


5. The length attribute of a DEFLD, a DEFRF, or DEFCON instruction; 
by specifying the label of the instruction as follows: 


L:label 


6. An arithmetic expression using the above five expressions in the 
following forms: 


a. (abs exp + abs exp) 
b. (abs exp — abs exp) 
c. (abs exp * abs exp) 
d. (abs exp/abs exp) 


When the label of a DEFLD, DEFCON, or DEFRF is used without an attribute 
modifier, the value of the expression is the displacement of the field when used in 
the displacement operand, and is the value of the field length when used in the 
length operand. 
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When the label of an EQUATE instruction is used, the value of the EQUATE 
must be an absolute number. 


_ Note: The value of disp, the absolute expression, or the sum value of the last 
DEFLD location plus its length must not exceed 65 535 bytes. 


label 
Is the label of another DEFRF statement that defines a displacement value. 


jen 
Is the field length (0 - 65 535). 


Programming Notes: DEFREF allows you to assign a label to a field selected by a 
register address. This allows you to use the same register address to define a 
series of contiguous fields, such as in dummy sections (DSECTs), and then refer 
to any of the fields symbolically using the label assigned by one or more DEFRF 
instructions. 


When a DEFRE label is used as an instruction operand, the segment is obtained 
from the register address. The displacement specified by the DEFRF instruction is 
added to the register address displacement, and the DEFRF length replaces the 
length from the register address. 


The following example shows how DEFRFs can be used: 


Assume the following record definition is repeated a total of 10 times and is 
located in Segment 2 beginning at displacement 47: 


two-byte record type field (TYPE): 
one-byte flags field (FLAGS): 
two-byte record code field (CODE): 
one-byte data ID: 

fourteen-byte data field (DATA): 


Thus, the record length is 20 bytes and can be represented with the following 


instructions: 

RECORD DEFRE 4,0,20 This entry refers to the entire record. 

TYPE DEFRF 4,C(RECORD),2 First entry is length 2 and is based on 
the starting location of the record 
(disp=0). 

FLAGS DEFRF 4,,1 Second entry is length 1 and 
immediately follows TYPE. 

CODE DEFRE 4,,2 Third entry is length 2. 

ID DEFRF 4,,1 Fourth entry is length 1. 

DATA DEFRF 4,,14 Fifth entry is length 14. 


Initialize the register by using the instruction LDRA (Load Register Address). In 
this example, the LDRA instruction would look like: 


LDRA 4,2,47,20 Load the current segment space ID, 
* then load the base address of 
. Segment 2, displacement 47 and 
. a record length 20 into register 4. 


5-90 4700 Controller Programming Library, Volume 1: General Controller Programming 


You can move the starting address of any record by adding to, or subtracting 
from, the base register, the multiple of the record length. As long as the base 
register address increases or decreases only by a multiple of the record length, the 
symbol TYPE always refers to the type of one of the 10 records, FLAGS always 
refers to the flags field in that same record, and so on. 


The length value loaded into a register is only significant if the normal (reg) form 
of register addressing is to be used. In this case, the length of the operation is 
determined by the length in the register. For modified register-addressed fields, 
the length of the operation is determined by the length associated with the symbol 
and the length in the register is ignored. 
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Segment space for the work station’s initial application program is defined during 
either configuration or while the application program is assembled, but (except for 
Segment 13) is not allocated until the program is loaded. A called application 
program can either define and allocate its own storage, or it can share storage 
with the calling application program. 


DEFSTOR--Define Segment Storage 


The DEFSTOR instruction allows you to define segment storage in your 
application program. You can define Segments 0 and 2 through 13 with 
DEFSTOR. The DEFSTOR instruction must be within the first 4095 program 
bytes. If the station configuration and DEFSTOR define the same segment, the 
DEFSTOR values override the configuration values. DEFSTOR creates a table 
of segment sizes that follows the FINISH instruction in the program listing. 


Name Operation Operand 


[label] DEFSTOR SEGSIZE=( {seg0|*} , {seg2|*} 
pee-, 8eg13|*} ) 


[,MAXSTOR=n] [,USE={STATIC| DYNAMIC} ] 


| [, 1D=n] 


SEGSIZE 
Are decimal values that specify the length, in bytes, of the segment or 
segments. The segO value defines the user portion of Segment 0 only; 
exactly 96 additional bytes are allocated for registers. Specifying an 
asterisk (*) causes the segment space to be determined by the DEFLD and 
DEFCON statements defined for that segment. The SEGSIZE parameters 
are positional, and intervening commas (,) must be coded for segment 
definitions you omit. 


Notes: 


If CPGEN or the primary application program defined a Segment 13 
for any logical work station using this program, the following rules 


apply: 


1. You can override the CPGEN definition when the program defined in 
the CPGEN is sharing the same storage class as your program and no 
other program defined in the CPGEN is sharing that class for Segment 
13. 


2. When the CPGEN has not declared a shared Segment 13 for the 
stations to which the application is assigned, then a shared Segment 13 
can be assigned via the DEFSTOR. 


3. A global Segment 13 can be assigned only by CPGEN and the 
STARTGEN instruction, and when declared it is assigned to all stations 
that have not been assigned a shared 13. If the program overrides the 
global Segment 13, then it will have a shared Segment 13 for those 
stations to which the program is assigned. The global 13 remains with 
those programs that do not have a shared Segment 13. 
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Failure to follow these rules, which apply to all logical work stations using — 
your program, may cause an error and 7 bee IPL procedure. 


MAXSTOR . FS 3 
Used by the primary splivations program to ndefiie the total storage 
requirements for the logical work station. MAXSTOR defines the total 
segment storage assigned to the station in bytes; this value overrides the 
MAXSTOR value defined on the STATION macro. Specify n as a decimal 
value. 


USE 
If your program will be called more than once by another application 
program, specify USE=STATIC if you want the using station to hold the 
storage space needed by your program between calls. This storage remains 
unchanged until your program is recalled. If you do not specify 
USE=STATIC, the space is classified as DYNAMIC (the default), and 
released for use by other application programs in this work station. 


ID 
Is the identification of an application storage pool. Specify n as a decimal 
value between 1 and 15. The default value is 1. 


Programming Notes: You must include a DEFSTOR instruction in your program if 
you specify the APENTRY operand of the BEGIN instruction. 


DEFSTOR will define a new Segment 0 if you indicate that no segments are to be 
defined and specify USE=STATIC. If DEFSTOR is coded in this manner an 
additional 96 bytes must be included in the MAXSTOR value for the new 
segment. 
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DIVFLD 


DIVFLD--Divide Field 


DIVFLD algebraically divides the binary contents of a register by the binary 
contents of a field. The length of the field must be 6 bytes or less. The quotient 
is placed in the register, and the remainder is lost. A divisor of 0 results in no 
operation. 


Name Operation Operand 


defcon2 
defld2 
[label] DIVFLD regi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a register that first contains the dividend, and later the quotient. 


operand 2 
Is a field containing the divisor. The length of the field must be from 0 to 6 
bytes; if the length is 0, no operation takes place. 


Condition Codes: One of the following is set. 


Possible 
Hex Code Mnemonic Explanation 
Ol ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 ZD The divisor is 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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DIVFLDL 


DIVFLDL--Divide Field Logical 


DIVFLDL divides the contents of a register by a 6-byte field. If the field is less 
than 6 bytes in length, it is treated as a 6-byte field by propagating zeros. 
DIVFLDL then divides the binary contents of a register by the binary contents of 
a field. The quotient is placed in the register and the remainder is lost. A divisor 
of 0 results in no operation. 


Name Operation Operand 


defcon2 
def1ld2 
[label] DIVFLDL regl, (defrf2 ) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a register that first contains the dividend, and later the quotient. 


operand 2 
Is a field containing the divisor. The length of the divisor is from 0 to 6 


bytes. If a length of 0 is specified, no operation takes place. 


Condition Codes: One of the following is set. 


Possible 
Hex Code Mnemonic Explanation 
01 VAY The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 ZD The divisor is 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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DIVREG--Divide Register 


DIVREG 


DIVREG algebraically divides the binary contents of one register by the binary 
contents of another register. After the division, the quotient replaces the dividend 
and the remainder replaces the divisor. Both the quotient and remainder have the 
same sign. 


Name Operation Operand 


[label] DIVREG regi, reg2 


operand 1 
Is a register that contains the dividend. At the end of the operation, the 
quotient replaces the dividend. 


operand 2 
Is a register that contains the divisor. At the end of the operation, the 


remainder replaces the divisor. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 ZD The divisor is 0. 


Program Checks: None are set. 
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This instruction divides the zoned decimal operand 1 by the zoned decimal 
operand 2, and replaces operand 1 with a zoned decimal result. The length of 
either operand is 1-63 bytes; an operand longer than 15 bytes must be selected 
using register addressing. 


DIV Z--Divide Zoned Decimal 


Note: This is an optional instruction; module P31 must be specified on the 
OPTMOD configuration macro. 


Name Operation Operand 


defcon2 
defldt defld2 
[label] DIVZ (defrfi1) , (defrf2) 
(reg1) (reg2 ) 
seg1,disp2,len1 seg2,disp2,len2 


operand I 
Is a field containing the zoned decimal dividend, and the location of the 
result (quotient); any remainder is lost. If the result is shorter than the 
operand length, each high-order result byte is set to X‘FO’. The field must 
not be in Segment 14. 


operand 2 
Is a field containing the zoned decimal divisor. If zero, the appropriate 


condition code is set, and the operation ends. 


Condition Codes: The following can be set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
O5 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 ZD Divisor is 0. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 
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DTACCESS 


| DIACCESS--Data Access 


DTACCESS allows the accessing of application programs, as data for those 
programs that have been put in the SYSAP data set on the operating diskette. 
These "programs" would typically contain non-executable instructions such as 
DEFCONSs. Addressing of the program "segment" is accomplished through 
register addressing. The program may be either resident or transient. This 
function allows data to be handled by the Host Transmission Facility and the 
System Monitor functions to add, delete, or update single application programs. 
This assumes that the file has a standard program header. The station, under 
which the program issuing the DTACCESS is operating, is put into a wait state 
until storage becomes available and the data program has been loaded. When the 
program has been successfully loaded, the station will be removed from the wait 
state. If the requested program is resident, DTACCESS will return the address of 
the resident program in register 1. 


Assuming sufficient storage space is available to accommodate the data programs, 
a Station may have up to 11 outstanding requests at a given time. DTACCESS 
will load the requested application program and return its address, in LDRA 
format, in register 1. If DIACCESS determines that the requested program has 
already been loaded, it simply returns the address of the requested program in 
register 1. 


Your configuration specifications must include several macros and operands in 
order for you to use the DIACCESS (and DTAFREEB) instruction. See APLIST, 
STATION, and TRANPL in the JBM 4700 Programming Library: Volume 6. 


The format of this instruction is: 


Name Operation Operand 


defld2 

[label] DTACCESS (defrf2 ) [, WAIT= { YIN } ] 
(reg2 ) 
seg2,disp2, 


operand 2 
Is a field containing the parameter list. The format of this parameter list is: 


bytes 0-7 = apname --> 8-byte name of the data file 


Condition Codes: One of the following is set. 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful execution. 
02 DTACCESS canceled via Attention or because 
data could not be loaded from diskette. 
04 No pool block available (NOWAIT). 
08 Requested data already accessed. 
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Program Checks (hex): 01, 02, 21, 25, 27, or 28 can be set. 
Hex Code Explanation 


01 The specified PLIST is in an undefined segment. 


02 The PLIST length extends beyond the segment. 

21 Requested data not found. _ 

25° No room in segment header area (DTACC too small). 
27 DTACC=O0 specified (seg space id invalid). 

28 Target data is transient but no pool is defined. 


| Programming Notes: The application program that issues this instruction may put 
its work station into the wait state until storage becomes available. See the 
APCALL instruction for further information. 
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DTAFREE will free application programs accessed as data by the DITACCESS 
instruction. 


DTAFREE--Data Free 


If the application program to be freed is transient, the storage area containing this 
program is made available for other uses. The segment header associated with an 
application (resident or transient) that has been freed is also available for use. 


Name Operation Operand 


(reg2 ) 


defld2 
[label] DTAFREE (defrf2 ) 
seg2,disp2 


operand 2 
Is a field containing the parameter list. The format of the parameter list is: 


bytes 0-7 = apname --> 8-byte name of the data file 


Condition Codes: The following may be set. 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful execution. 


Program Checks (hex): 01, 02, and 27 can be set. 
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EDIT--Edit Monetary Field 


EDIT formats a field by suppressing leading zeros, adding fill characters, and 
adding monetary symbols. The mask that EDIT uses in formatting a field is 
created by the MASK instruction, and is made up of the following characters: 


fill 
Is a 1-byte, hexadecimal, character, or binary expression used in place of 
leading zeros when zero suppression is specified. 


Indicates significant position. A number from the field to be edited that 
corresponds to this position in the mask is moved to the field that is to 
contain the edited data without inspection. 


Indicates the leading zero suppression. Leading zeros in the field to be 
edited are suppressed, and the corresponding position in the field to contain 
the edited data is loaded with a fill character. Characters from the field to 
be edited, other than leading zeros, that correspond to this position in the 
mask are moved to the field that is to contain the edited data. 


Indicates a dollar-sign insertion. Significant digits are inserted in the edited 
field. When the last leading 0 is encountered, the dollar sign is inserted in 
place of the 0 and all leading zeros are replaced by the fill character 
specified in the MASK instruction. If, however, (1) the next character in 
the field to be edited is not a leading 0 and the next mask character is not 
an insertion character, or (2) the next mask character is 9 or Z, “‘$”’, 
together with all other characters in the field to be edited, is moved to the 
field that is to contain the edited data. 


Indicates blanks insertion. Blanks in the mask are always inserted in the 
corresponding positions of the field that is to contain the edited data. 


Any other characters except 9, Z, $, and b may be insertion characters. They are 
inserted in the corresponding positions of the field that is to contain the edited 
data after a significant digit has been included in this field. (See the MASK 
instruction for a further description of the mask.) If no significant digit is found in 
the field to be edited before the last insertion character, all insertion characters 
are replaced by the fill character. 


If the field to be edited is longer than the mask, the field is truncated on the left. 
If the field to be edited is smaller than the mask, the edited field is padded with 
zeros or fill characters, as specified in the MASK instruction. Note that the length 
of the mask does not include insertion characters. 
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Following the execution of EDIT, the primary field pointer in the segment 
containing the edited field points to the first character after the last character 
moved. The field length indicator is unchanged. 


Name Operation Operand 


[label] EDIT seg1,seq2, {label3|(reg3)} 


operand 1 
Is a field in the specified segment to place the edited data. The field’s 
location is indicated by the primary field pointer (PFP), and the field length 
indicator is ignored. If seg1 and seg2 specify the same segment, the field is 
indicated by the secondary field pointer. 


operand 2 
Is a field in the specified segment to be edited. The field’s location is 
indicated by the primary field pointer and the length by the field length 
indicator. 


label 3 
Is the label of the MASK instruction defining the mask to be used during 
editing. The length of the edited field in seg1 is determined by the length of 
the mask. ‘label’ may be an external symbol when RELOC=Y is specified 
in the APOPT instruction. 


(reg3) | 7 
. Is a field containing a mask (in the same format as the data generated by 
the mask instruction). The length of the edited field in seg1 is determined 
by the length of the mask. The length specified in reg3 is ignored. 


Condition Codes: One of the following is set: 


Possible ae 
Hex Code Mnemonic | Explanation 
Ol OK | Editing was successful. 


08 TR | Truncation occurred. 


Program Checks (hex): 01, 02, or OE can be set. 
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Programming Notes: For example, the message received from the host processor 

contains the transaction amount and the new balance as binary numbers without 
monetary symbols or decimal points. The following example shows the 
instructions that edit the new balance before printing the customer’s passbook. 
The field transmitted from the central processor is: 


03232E 


Its EBCDIC equivalent is: 


0000205614 


The edited field is: 


AMNTMASK MASK = C‘$$,$$$,$99.99’ 
CPTOTAL DEFLD CPINSEG,22,3 
WORKAREA DEFLD WORKSEG,,10 
PRNTOUT DEFLD PRNTSEG,15,13 


bbbb$2,056.14 


dm WN — 


EDITAMNT LDFLD REG1,CPTOTAL 


3 
STFLDC REG1,WORKAREA 6 
SETFPL WORKAREA 7 
SETFPL PRNTOUT 8 
EDIT PRNTSEG,WORKSEG,AMNTMASK 9 


Indicates that at least four digits and a decimal point must 

always appear in the output. 

A monetary sign will also appear if the field to be edited contains 
fewer than 10 characters. 

When leading zeros are encountered in the leftmost portion of the 
data, one monetary sign is inserted and the edited field is 

padded to the left with blanks. If the mask was defined as MASK 
C‘*’ ,C‘$ZZ,ZZZ,Z99.99’ the edited field would appear 

as $*****2 056.14. 

Defines the field that contains the binary value transmitted 

from the central processor. 

Defines a workarea used when the field is converted from binary 
to EBCDIC. 

Defines the location of the result. 

Loads the binary amount field into a register. 

Stores the EBCDIC equivalent of the register contents into the 
work area. 

Sets the PFP and FLI of WORKSEG to define the EBCDIC amount in 
WORKAREA. 

Sets the PFP and FLI of PRINTSEG to define the location of the 
edited field. 

Edits the total and places it in the output area. 
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ENDINIT--End Initialization Section 


This instruction defines the end of an initialization section 

of the program that begins with an SINIT instruction, continues 
with INITSEG instructions, and ends with an ENDINIT instruction. 
No other 4700 Assembler instructions can be within this sequence. 


Name Operation Operand 


[label] ENDINIT 
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| ENDOVLY 
ENDOVLY--End of Overlay Section 


ENDOVLY specifies the end of an overlay section. It must be the last 
instruction in the overlay section. 


Name Operation Operand 


[label] ENDOVLY 
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ENDSEG--End Application Program Section 


ENDSEG indicates to the assembler the end of a controller 
application section that was begun with a SEGCODE instruction. 
ENDSEG is a required instruction in application sections 

that start with SEGCODE. 


Name Operation Operand 


ENDSEG 


Note: The assembler instruction END must be used to 
end an assembly. 
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EQUATE--Equate a Label to a Value 


EQUATE associates a label with a character or a value. 
This label can then be used in other instructions 

in place of the value or character. EQUATE, however, 
must be coded before any of the other instructions 

that refer to the label. 


Note: The maximum number of EQUATES that may be used in 
an assembly is 4095. 


Name Operation Operand 


label EQUATE { value } 
(abs exp) 


value 
Is any valid decimal, hexadecimal, binary, fullword, halfword, address, or 
character specification. 


abs exp 
Is an absolute expression of the value to be equated. The absolute 
expression may be: 


1. An absolute value. 

2. The label of an EQUATE instruction. 

3. The displacement attribute of a DEFLD, DEFRF, or a DEFCON;; by 
specifying the label of the DEFLD, DEFRF, or DEFCON as follows: 


D: label 


4. The length attribute of a DEFLD, a DEFRF, or a DEFCON; by 
specifying the label of the DEFLD, DEFRF, or DEFCON as follows: 


L:label 


5. An arithmetic expression using the preceding four expressions in the 
following forms. 


(abs exp + abs exp) 
(abs exp — abs exp) 
(abs exp * abs exp) 
(abs exp/abs exp) 


ao oS 


Note: The maximum length of value is 8 characters in DOS/VS and 255 
characters in OS/VS. 
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Programming Notes: For example, a controller application program may always use 
Segment 2 as the input area and register 3 to contain the total amount of the 
transaction. The following could be coded: | 


INPTAREA EQUATE 2 
TRANTOT EQUATE 3. 


The labels INPTAREA and TRANTOT would then be used in applicable 
instructions rather than the absolute numbers. To change the input segment 
number, change only the value specified in the EQUATE. When the program is 
assembled again, the new value will appear in applicable instructions. 


5-118 4700 Controller Programming Library, Volume 1: General Controller Programming 


ERRLOG causes the device type, station ID, and statistical counters for a 
particular component to be stored in a segment. The statistical counters include 
both error counters (for example, machine failures) and diagnostic counters 
(improper operating procedure). 


| ERRLOG--Obtain Statistical Counters 


After instruction operation, the PFP still points to the start of the field containing 
the stored information, and the FLI contains the field length. ERRLOG returns 
the modulus value in the last four bits of the device address for loop terminals, 
and the loop speed and clocking indicator in the last eight bits of the physical loop 
address. For device cluster adapter (DCA) terminals, the last four bits of the 
physical device address are set to binary zeros. 


Name Operation Operand 


(reg2 ) 


defld2 | 
seg2,disp2 


[label] ERRLOG segl, | (defrf2 ) 


operand | 
Contains the device type code, station ID, and statistical counters. The 
segment number cannot be 14. The location of the field, within the 
segment that is to contain the statistical counters, is indicated by the PFP. 
The FLI is ignored. At the end of the operation the PFP still points to the 
beginning of the field, and the FLI contains the field length. The format of 
the information returned is explained in Figure 5-1 on page 5-120. 


operand 2 
Defines the field containing the physical device address of the component 
for which the statistical counters are to be stored. The format of this 
address is explained in Figure 5-2 on page 5-121. The length associated 
with this operand is ignored, and the first 2 bytes are assumed to contain 
the physical device address. 


Note: The label of a DEFCON cannot be used. 
Condition Codes: One of the following is set: 


| Hex Code Explanation 


O1 The instruction was executed successfully. 
02 There was an invalid device specification. 
04 There was insufficient space in the segment to store the counters. 


Program Checks: 01, 02, or 27 can be set. 
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Code | 
Is a 1-byte component code, as follows: 


Code Component | 
X‘O1’ Communication Link 
X°02’ Diskette 
X03’ ALA Line 
X‘04’ Disk _ 
X‘05’ . Encryption Facility 
X80’ | Loop _ | oo 
x<sr* 4704/3604/3278/3279 Keyboard 
Displaywriter oe 
Personal Computer 
X82’ 4704/3604/3278/3279 Display 
X‘83’ 3610/3612 Document Printer; 3611/3612 Passbook Printer 
X84’ 3262/3287/3289 Printer 
X‘86’ 4707/3604 Magnetic Stripe Encoder 
X‘87’ 3614/3624 Consumer Transaction Facility 
X‘88’ 3606/3608 Keyboard/Display 
X‘89’ — 3608 Printer 
X‘8A’ 3615 Administrative Terminal Printer 
X°92’ 3616 Printer 
X95’ Device Cluster Adapter 
X‘9A’- 4710 Printer 
 XSAB’ Magnetic Stripe Encoder for 4704 Models 2 and 3 
X‘BO’ 4720 Printer 


Station ID _ | | 
Is the binary ID number of the station associated with the component. 


Statistical Counters 
Are a variable number of counters. 


Figure 5-1. Format of Statistical Counters Returned by ERRLOG 
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Primary 
Diskette 
Auxiliary 
Diskette 
Disk A 

Disk B 

Host Link 
Loop 

Loop Device 
DCA Adapter 
DCA Port 
DCA Device 


Loop 


x9’ 
x‘9? 


X‘9’ 
X‘9’ 
X‘9’ 
Loop 
Loop 
X‘9’ 
X‘A’ 
X‘A’ 


X‘0’ X‘2’ X‘0’ 
X‘0’ X‘3’ x ‘0’ 
X‘0’ xX‘7’ X‘0’ 
xX‘0’ X‘8’ X‘0’ 
X‘0’ X‘1’ X‘0’ 
X‘0’ X‘0’ X‘0’ 
Terminal Component X‘0’ 
X‘A’ X‘0’ X‘0’ 
Port X‘0’ X‘0’ 
Port Component X‘Q’ 


Is the 4-bit binary loop number (1-4) assigned during the controller 
configuration procedure. 


Terminal 


Is the 4-bit binary terminal address, established at the terminal by setting 
address switches on the terminal itself. 


Port 


Is the 4-bit binary number (0-7) of the DCA port to which the terminal is 
connected to the controller. 


Component 


Is the 4-bit component address of a terminal component, as follows: 


Component Address 


0001 
0010 
0011 
0100 
0101 
0100 
0110 
0111 
1000. 
0100 
nnon* 
nnon* 
nonn* +1 


Component 


4704/3604/3278/3279 Keyboard 
4704/3604/3278/3279 Display 

4704/3604 Magnetic Stripe Encoder/Reader 
4710/3610/3612 Document Printer 

3611/3612 Passbook Printer 

3615 Administrative Terminal Printer (not address shared) 
3606/3608 Keyboard/Display 

3608 Printer 

3614/3624 Terminal 

3262/3287 Printer 

3615 Administrative Terminal Printer (address shared) 
3616 Journal Printer 

3616 Document Printer 


*nnnn = setting of the units subaddress switches 


Figure 5-2. Physical Device Address Used by ERRLOG 
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EXOR--Exclusive OR 


EXOR performs an exclusive OR operation of two fields, and places the result in 
operand 1. When the exclusive OR is executed, a 0 is set in the result if 
corresponding bits in the tested fields are alike; a 1 is set in the result if 
corresponding bits in the tested fields are not alike. The length of the operation is 
governed by the length of the second field; this length must be in the range of 1 to 
255 bytes. 


Name Operation Operand 


defcon2 
defldl defld2 
[label] EXOR (defrf1) ; (defrf2) 
(reg! ) (reg2 ) 
seg1,disp1 seg2,disp, len2 


operand 1 
Is a field that is to be exclusive-ORed with operand 2, and is to contain the 
result. The length specification for this field is ignored; the length of the 
operation depends on the length of operand 2. The field must not be in 
Segment 14. 


operand 2 
Is a field used in the exclusive OR operation with operand 1. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is all zeros. 
02 NZ The result is mixed ones and zeros, or all ones. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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EXORI--Exclusive OR Immediate 


EXORI performs an exclusive OR operation of a 1-byte or 2-byte field with a 
1-byte or 2-byte immediate operand, and places the result in operand 1. When the 
exclusive OR is executed, a 0 is set in the result if corresponding bits in the tested 
fields are alike; a 1 is set in the result if corresponding bits in the tested fields are 
not alike. 


Name Operation Operand 


defl1ldt 

[label] EXORI (defrf1) , immdata2 
(reg1 ) 
segi,disp1 


operand 1 
Is a field that is to be exclusive-ORed with operand 2, and is to contain the 
result. The length specification for this field is ignored; the length of the 
operation depends on the length of operand 2. The field must not be in 
Segment 14. 


operand 2 
Is 1 or 2 bytes of immediate data. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is all zeros. 
02 NZ The result is mixed ones and zeros, or all ones. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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EXPS swaps the primary and secondary field pointers of the indicated segment. 


EXPS--Exchange Primary and Secondary Field Pointers 


Name Operation Operand 


[label] EXPS seg] 


operand 1 
Is the number of the segment for which the pointers are to be swapped. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 can be set. 
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FCLENTER 


| FCLENTER--Define COBOL Entry Linkage 


You can use FCLENTER at entry of a program to assist in following the COBOL 
linkage conventions. On entry, register 1 contains the register address of a list 
and the list contains register addresses that locate the parameters. The called 
program can, using FCLENTER, save the address of the list (that is; the value in 
register 1) and move the parameters to fields in the current segment space. 


FCLENTER uses registers 8 and 9 as work registers. 


Name Operation Operand 


[label] FCLENTER saveaddress [,a1,a2,...,a254] 


saveaddress 
Is the label of a DEFLD instruction where the address of the list is stored. 
The length of the field should be at least 6 bytes. This operand must not be 
in Segment 14. Register 1, which by COBOL convention always contains 
the parameter list address, is stored at this location. 


al,a2,...,a254 
Are labels of DEFLD instructions defining the target locations of the 
parameter move operations. These fields must not be in Segment 14. 
These names identify the parameters in sequence as they occur in the 
COBOL program’s parameter list. You may define up to 254 parameters on 
an FCLENTER instruction. 


Condition Codes: This instruction may modify the condition code; however, any 
condition code returned will have no significance. 


Program Checks ( hex ): 01, 02, 03, 09, 11, and 27 may be set. 
Programming Notes: FCLENTER and FCLEXIT are used in conjunction, 


FCLENTER at the entry point of the assemler program being invoked, and 
FCLEXIT at the point of return to the COBOL program. 
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FCLEXIT 


FCLEXIT--Define COBOL Exit Linkage 


FCLEXIT can be used at the return logic of a program to assist in following the 
COBOL linkage conventions; register 1 is to in following the COBOL linkage 
conventions; register 1 is to contain the register address of a list, the list contains 
register addresses which locate parameters. The called program can, using 
FCLEXIT, set register 1 to the address of the list, move the parameter from the 
fields specified by al,a2,... (below) to the locations specified in the list, and then 
APRETURN. 


FCLEXIT uses registers 2 and 3 as work registers. 


Name Operation Operand 


[label] FCLEXIT saveaddress [,al1,a2,...,a254] 


saveaddress 
If the label of the DEFLD or DEFCON instruction that contains the 
address (of the list) to be loaded into register 1. If your program received 
parameters from the calling COBOL program, saveaddress is the same as 
that coded on the FCLENTER instruction. 


al,a2,...,a254 
Are labels of DEFLD instructions defining the source locations of the 
parameter move operations. If your program received parameters from the 
calling COBOL program, the parameter names can be the same as those 
you specified on the FCLENTER instruction. If you use the FCLENTER 
names but do not return a result parameter in place of any but the last 
name, you must code a comma (,) in place of the missing result parameter; 
the result parameters in this case are positional. 


Condition Codes: This instruction may modify the condition code; however, any 
condition code returned will have no significance. 


Program Checks: 01, 02, 03, 09, 11, 26, and 27 may be set. 
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| FINDAP 


FINDAP--Find Application Program 


This instruction provides two major functions: it determines the presence of an 
application program and it supplies information about dynamic storage 
management. 


FINDAP determines if an application program is in your active, application 
program data set. You must set a function code and the name of the program to 
be found into a parameter list (See COPY DEFFAP in Appendix B). FINDAP 
sets a condition code to indicate whether or not the named application program 
was found. 


This instruction also provides statistical information about storage management 
operation in the 4700. 


You must include optional module M45 in your OPTMOD configuration 
specifications in order to use function codes 01 through 04. 


Name Operation Operand 


defld2 
[label] FINDAP (defrf2) 
(reg2 ) 
seg2,disp2 
operand 2 
Is a field containing the parameter list. The field must not be in 
Segment 14. 


You must set the FAPFCN field in DEFFAP for one of the following: 


Hex Code Meaning 


00 Determine the absence or presence of an application program. 
Set by Program Set by 4700 
FAPAPN FAPFLG (FAPTRN mask) 

FAPCAL 

FAPLOD 

FAPWAT 


01 Obtain the amount of storage currently allocated to the specified 
application program on the specified work station. If the station ID is set to 
hex FF, you will get the amount of storage allocated to the specified 
program on all work stations. This amount of storage represents Segments 
O, and 2 through 12. 


Set by Program Set by 4700 
FAPAPN FAPSTOR 
FAPCSH 
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5-134 


02 Obtain the amount of storage currently allocated to the specified work 
station. The amount of storage represents segments 0, and 2 through 12. 


Set by Program Set by 4700 
FAPCSH FAPSTOR. 


03 Obtain the amount of storage reserved for the specified pool and the 
amount of storage in use. If the pool has not been defined then zero values 
are returned. If you specify a pool ID of 00 the values for the general pool 
are returned. 


Set by Program Set by 4700 
FAPCSH FAPTTL 
FAPSTOR 


04 Obtain statistics for the specified pool. If the reset flag (see FAPCLR) is 
set, then the counters will also be reset to 0. 


Set by Program Set by 4700 


FAPFLG (FAPCLR) FAPTTL — 
FAPCSH FAPSTQ 
FAPSTN | 
FAPCBY 
FAPCBN 
FAPCUR 
Counters: FAPSMAX, FAPSAPC, FAPSRCL, 
FAPSREQ, FAPSCMB, FAPSDEC, 
FAPSSCN, FAPSMOV, FAPSLNG, 
FAPSWTC, FAPSWTS, FAPSWTQ 
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Condition Codes: 


Hex Code Explanation 

For function code 00, one of the following is set: 
01 The program was found. 

02 The program was not found. 


For function code 01, one of the following is set: 


01 The program was found. 
02 The program was not found or is not currently in main storage and 
in use. 


For function code 02, one of the following is set: 

01 The station was found. 

02 The station was not found 

For function codes 03 and 04, one of the following is set: 
01 The storage pool was found. 

Q2 The storage pool was not found. 


Program Checks (hex): 01, 02, 11, or 27 can be set. 
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FINISH 
FINISH--End the Application Program | 


FINISH indicates the end of the conroller application program to the assembler. 
FINISH is a required instruction in a controller application program. 


Name Operation Operand 


FINISH 


Note: The assembler instruction END must be used to end an assembly. 
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-INITSEG 
INITSEG--Initialize Segments 


INITSEG permits an initial application program to initialize segment storage 
during controller load time. INITSEG allows you to: 


1. Set some program data fields differently for each work station. 
2. Override values set into fields of your program by configuration. 


INITSEG instructions must be within an initialization section of your program 
that begins with an SINIT instruction, ends with an ENDINIT instruction, and 
contains no other 4700 assembler instructions. Your program can contain more 
than one initialization section, and each section can contain more than one 
INITSEG instruction. If multiple INITSEG instructions refer to the same field, it 
is set to the value contained in the last referring instruction. 


Name Operation Operand 


[label] INITSEG [id,] ({seg,disp|defld},data) [,...] 


Specifies the work station to which the initialization values apply. If 
omitted, these values apply to any station using this program as its initial 
application program. 


Is the number of the segment to be initialized (2-13, 15, OA, or OB). OA 
and OB specify the Segment 0 for operators A and B on a shared station. If 
the station is not shared, specify OA. 


° 


Is a decimal number indicating the location of the data within the segment 
to be initialized. Specifying 0 with a ‘seg’ parameter of OA or OB selects the 
high-order byte of register 0. Specifying 0 with a seg of 15 specifies the 
beginning of user storage in Segment 15, because the system storage 
portion of Segment 15 cannot be specified. 


defld 
Is the label of a DEFLD instruction that defines the area to be initialized. 
The DEFLD instruction must be coded before this INITSEG instruction in 
your program. 
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data _ _ & 
Is the initializing data, specified in one of the following forms: 


ddd 
Is a decimal number specifying how often the constant (‘xxx...x’) 
occurs. If the constant occurs only once, do not specify ddd. 
t - = | 
Defines the type of data in the constant. Specify X for hexadecimal, 
C for character data, F for fullword, and so on, as defined in 
Chapter 4. 
nn 
Is a decimal number specifying the length of the constant ‘xxx...x’. 
*XXX...X’ 


Is the constant data, enclosed in single quotation marks. 
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INOR--Inclusive OR 


INOR performs an OR operation of two fields, and places the result in operand |. 
When the OR is executed, a 0 is set in the result if neither of the corresponding 
bits in the fields is a 1; a 1 is set in the result if either or both the corresponding 
bits in the fields are 1’s. The result is placed in the first operand location. 


Name Operation Operand 


defcon2 
‘ defldt defld2 
[label] INOR (defrf1) ; (defrf2) 
(reg1 ) (reg2 ) 
seg1,disp1 seg2,disp2,len2 


operand 1 
Is a field to be ORed with the second operand, and the location that is to 
contain the result. The length specification for this field is ignored. The 
field must not be in Segment 14. 


operand 2 
Is a field to be ORed with the field defined in operand 1. The length of 
operand 2 is from 1 to 255 bytes, and determines how many bytes are 
included in the OR operation. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is all zeros. 
02 NZ The result is mixed ones and zeros, or all ones. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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/INORI 


INORI performs an OR operation of a 1-byte or 2-byte field with a 1-byte or 
2-byte immediate operand. When INORI is executed, a 0 is set in the result if 
neither of the corresponding bits in the fields is a 1; a 1 is set in the result if either 
or both the corresponding bits in the fields are 1’s. The result is placed in the first 
operand location. 


INORI--Inclusive or Immediate 


Name Operation Operand 


defldt1 

[label] INORI (defrf1) , immdata2 
(reg!) 
seg1,disp1 


operand | 
Is a field to be ORed with the second operand, and the location that is to 
contain the result. The length specification for this field is ignored. The 
field must not be in Segment 14. 


operand 2 
Is 1 or 2 bytes of immediate data. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O1 ZO The result is all zeros. 
02 NZ The result is mixed ones and zeros, or all ones. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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INTMR starts, stops, reads, resets, or controls access to as many as 15 interval 
timers that each work station can have. INTMR selects a parameter list that, in 
turn, selects the particular interval timer and the function to be performed. 


INTMR--Interval Timer 


Except for starting and stopping, any work station can control interval timers for 
any other work station. A work station can start and stop only its own timers. 
When it is started, a timer counts intervals of time measured in seconds and 
fractions.of seconds until the owning work station stops the timer. The timer also 
records the minimum interval measured, the maximum interval, the number of 
intervals measured, and the total time of all intervals measured until the timer is 
reset or deactivated by the owning or some other work station. Deactivation 
causes all values for that work station to be lost; all values are reset to zero, and 
the timer cannot be restarted until the timer is reactivated. 


INTMR selects a parameter list having one of the three formats. The parameter 
list defines the timer, the operation performed, and can contain status flags for the 
timer as well as fields where the timer values, if any, are returned. INTMR must 
select a parameter list that is appropriate for the operation it performs. The 
parameter list can be defined using the DEFINT operand of the COPY 
instruction, or by your own definition. The two largest parameter lists, including 
the list defined by DEFINT, should not be in Segment 14; the smallest list can be 
in any segment. Refer to the example below for the parameter list formats, 
INTMR function codes, and their operation. 


Note: To use this instruction, you must code the P2C operand on the OPTMOD 
configuration macro. 


Using the INTMR Instruction: The INTMR instruction function depends on the 
function code in the parameter list that the instruction selects. INTMR can 
perform the following interval timer functions: 


e Activate or deactivate one or all timers on its own or another work station. A 
timer must be activated before it can be started or stopped; controller startup 
sets all timers to the inactive state. Only activated timers are reported back to 
the host through CNM/CS. 


e Start, stop, and read the last interval timed by any timer on its own work 
station. 


« Read the longest interval, the shortest interval, the total time of all intervals, 
and the total number of intervals timed since the timer was last activated or 
reset. These values can be read for any timer on this or any other work 
station, and you may choose whether to reset the timer counters after they are 
read. 
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Threshold Analysis and Remote Access (TARA) uses the interval timers to 
measure response times; as a result, you must include the INTMR instructions in 
existing or new application programs at points that correctly measure the response 
times reported to the host site by CNM/CS. For this reason, you may be required 
to code INTMR instructions according to procedures defined by personnel at your 
host site. For example, your site might want to measure the time needed to process 
a transaction. In this case, you would code an INTMR instruction to start the 
timer just before issuing an LWRITE CP instruction, and another INTMR to stop 
the timer just before an LREAD CP instruction. 


Another example is to measure the time needed to.receive a response to your 
program’s request to a terminal. You would start the timer just after issuing the 
LWRITE to the terminal, and stop the timer when the operator first entered data 
(just after the terminal entry point for an idle station, or after exit from a test of 
the LDA Attention Summary Field if that terminal’s bit was set for either an idle 
or active station). 


Name Operation Operand 


defcon2 
defld2 
[label] INTMR (defrf£2 ) 
(reg2 ) 
seg2,disp2 


operand 2 
Is a field containing the parameter list. You can define the parameter list 
by means of the DEFINT copy file described in Appendix B. If your 
program reads timers or enters data in the parameter list, the field must not 
be in Segment 14. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O1 OK INTMR completed successfully. 
02 The specified timer is not supported 


(undefined) or was not activated. 


Program Checks (hex): 01, 09, 11, or 27 can be set. 
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Reserved Elapsed or Number 
Work INTMR or Minimum Maximum Total of 
Function Flag Interval Interval Time Intervals 


Station Timer 


Byte 0 1 2 3 4 6 7 9 10 13 14 15 


Format 1 


Format 2 


Format 3 


You must select and define a parameter list with a format appropriate for each 
INTMR instruction that your work station issues. Choose the format according to 
the functions your INTMR instructions perform. Refer to the descriptions of the 
INTMR function byte (byte 2) for the operations, their function codes, and 
format requirements that each requires. 


Depending on the format chosen, specify the parameter list fields as follows: 


Work Station (Byte 0) 
Specify the work station owning the interval timer or timers controlled by 
this parameter list. This is the binary equivalent of a decimal value ranging 
00 through 60. If 00 is specified, this work station is assumed. You must 
specify zero for all start and stop timer functions (byte 2 = X“‘00’, X‘‘O1”’, 
or X“11’’). 


Timer (Byte 1) 
Specify the timer or timers on which the function (byte 2) is performed. 
Specify the binary equivalent of a decimal value ranging 1 through 15. 
Coding X“‘00” for function codes X“‘04” or X“‘05” activates or deactivates 
all allocated timers on the specified work station; on all other functions, 
X‘‘00” causes a no-operation. Any timer specified must be within the range 
specified by the INTMR operand of the STATION macro, or condition 
code 2 is set. 
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INTMR Function (Byte 2) 
Determines the function performed by the INTMR instruction, and the 
format of the parameter list. An invalid function code causes a program 
check of X“‘11” in the log message. The functions, their codes, and the 
minimum allowable parameter list formats are as follows: 


Function Hex Code Description 


Start Timer 00 Start the timer specified by byte 1 
for this work station (byte 0 must 
be X“‘00’’). The timer is not 
affected if it was already started. 
This function requires a format-1 
parameter list. 

Stop Timer O01 Stop the timer specified by byte 1 
for this work station (byte 0 must 
be X“‘00’’). If the timer is already 
stopped, this operation is ignored. 
This function requires a format-1 
parameter list. 

Read Timer 02 Set all interval timer results 
(shortest interval, longest interval, 
total time, and the total number of 
intervals) for the work station and 
timer specified by bytes 0 and 1. 
This function requires a format-3 
parameter list. If there is 
insufficient space in the segment, 
INTMR causes a program check of 
X‘‘11” in the log message. 

Read Timer 03 Perform the same function as Read 

with Reset Timer (X“‘02’’), but reset the result 
counters. This function requires a 
format-3 parameter list. If there is 
insufficient space in the segment, 
INTMR causes a program check of 
X“‘11” in the log message. 

Activate Timer 04 Allow other INTMR functions to 
be performed on the timer or timers 
specified by byte 1. If byte 1 = 
X“‘00’’, all timers for the work 
station specified in byte O are 
activated (if allowed by that 
station’s STATION macro 
instruction). This function requires 
a format-1 parameter list for each 
timer. 
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Function Hex Code Description 


Deactivate 05 Prevent other INTMR functions 

Timer from being performed on the timer 
or timers specified by byte 1. If 
byte 1 = X“‘00”’, all timers for the 
work station specified in byte 0 are 
deactivated. This function requires 
a format-1 parameter list for each 


timer. 
Stop Timer-- 11 Stop the timer specified by byte 1 
Read Elapsed for this work station, and set the 
Interval last interval timed into the timer’s 


parameter list. If the timer was not 
started, the interval is zero. This 
function requires a format-2 
parameter list; byte 3 of each list is 
unused. 


Flag (Byte 3) 
For format 2, this field is unused (reserved). On INTMR instructions 
performing read timer or stop and read elapsed interval, the flag byte 
contains one, or a combination, of the following values, indicating timer 
status before the operation was performed. 


X00”: Timer was active 
X40”: Timer was running 
X80”: Timer inactive at start of this operation. 


Elapsed or Minimum Interval (Bytes 4 ~ 6) 
In format 2, this field is set to the time of the interval ended by the function 
just performed. In format 3, INTMR sets this field to the minimum interval 
timed since the timer was last activated or reset. In both formats, the 
leftmost two bytes contain the number of seconds in the interval, and the 
rightmost byte contains any fraction of a second. The count stays in the 
parameter list until another INTMR instruction uses this parameter list, or 
the timer is deactivated. 


Maximum Interval (Bytes 7 - 9) 
INTMR sets this field to the maximum interval timed since the timer was 
last activated or reset. The leftmost two bytes contain the number of 
seconds, the rightmost byte contains any fraction of a second. The count 
stays in the parameter list until another INTMR instruction reads a timer 
using this parameter list, or until the timer is deactivated. 


Total Time (Bytes 10 - 13) 
INTMR sets this field to the total of all intervals timed since the timer was 
last activated or reset. This count ranges 0-16, 777, 215 seconds with the 
rightmost byte containing any fraction of a second. The count stays in the 
parameter list until the list is used to perform another read operation, or 
until the timer is deactivated. 
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Number of Intervals (Bytes 14 - 15) | 
INTMR sets this field to the total of the intervals senate’ since hee timer 
was last activated or reset. The count stays in the parameter list until 
another INTMR instruction uses this list to perform another read operation, 
or until the timer is deactivated. 
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IRETURN conditionally returns control to the program that issued one of the 
branch-and-link instructions. It is used in conjunction with the ADRLST 
instruction. 


| IRETURN--Indexed Conditional Return 


Name Operation Operand 


[label] IRETURN [mask/|X'F'], index 


mask 
Is the condition to be met for the return to be performed. If any bit in the 
mask is set and the corresponding bit is set in the present condition code, 
then the condition is satisfied and the return is performed. If the condition 
is not satisfied, then operation continues with the next sequential 
instruction. If the mask is omitted, then hex F is used as the mask to cause 
an unconditional return. 


index 
Indicates the address within an address list to which the return should be 
made. If index is 0, then no address list exists and return is performed 
through the return-address stack. If index is not 0, then it is the index of 
the entry that contains the return address. Code index as a decimal value 
between 0 and 7. 

Condition Codes: The code is not changed. 

Program Checks (hex): 04 can be set. 


Programming Notes: In the example below the program will continue operation at 
label CASE2. 


BRANL subroutine 
ADRLST CASE1 ,CASE2 


CASE1 


CASE2 


subroutine 


IRETURN X'F',2 
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JUMP conditionally or unconditionally changes the sequence of program 
operation. If any bit is set to 1 in the mask specified in the instruction and the 
corresponding bit is set in the present condition code, then the condition is 
satisfied, and the branch is taken. When an unconditional branch or a branch 
with the condition satisfied is executed, execution continues with the instruction 
referred to in the JUMP instruction. Otherwise, execution continues with the 
next sequential instruction. 


JUMP--Short Branch 


Because the JUMP instruction is only 2 bytes long, it can be used in place of 
BRAN (a 4-byte instruction) to save controller storage. The location branched 
to, however, must not be more than 510 bytes away from the JUMP instruction 
address. 


Note: If RELOC=Y is specified on the APOPT instruction, the JUMP 
instruction can be used to branch only within a CSECT. 


Name Operation Operand 


[label] JUMP [ccmask|X'F',] branch address 


cemask 
Is the condition to be met for the branch to be taken (refer to the condition 
codes set by individual instructions). The ccmask can be in the form of a 
mnemonic (see Chapter 4 for a list of the mnemonics representing coded 
values), a 1-byte hexadecimal expression, a 4-bit binary expression, or the 
label of an EQUATE instruction expressing one of the preceding numeric 
values. If the operand is omitted or if X‘F’ is coded, then the branch is 
always performed. If ccmask is specified as hex 0, the branch is never 
taken. 


branch address 
Is the label of the instruction where processing is to continue if the branch 
is taken. 


Condition Codes: The code is not changed. 


Program Checks (hex): OB can be set. 
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LCHAP--Change Priority 


LCHAP provides the application program with an instruction to control priority 
dispatching. When priority dispatching is ON, priorities will be defined by the 
tables generated by the PRIDSP configuration macro. GMSPRI contains the 
identification of the dispatching table being used and an indicator of priority 
dispatching status. 


Name Operation Operand 


ON 
[label] LCHAP OFF 
NEXT 


ON 
Specifies that priority dispatching will be active for the table indicated in 
bits 1-7 of GMSPRI. If LCHAP is successful, bit 0 will be switched on by 
LCHATP to indicate that priority dispatching is active for the table 
indicated. 

OFF 
Deactivates priority dispatching and returns control to the station chain 
dispatching sequence. Bit 0 of GMSPRI will be switched off. 

NEXT 


Will cause the station specified in SMSDSS to be the next station that the 
controller will attempt to dispatch. Note that priority dispatching must be 
active for this operand to be valid. Be careful when using this function 
because it is possible, through frequent selection of one set of stations, to 
prevent dispatching of the remaining stations. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK The change was made. 
Q2 The change was not made. The required priority 


table was not defined when ON was specified; or 
the station id in SMSDSS was invalid; or priority 
dispatching was not active when NEXT was 
specified. 


Program Checks: None are set. 
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Note: The dispatching status indicator in GMSPRI does not control dispatching. 
status. It is set/reset by LCHAP for information only. Modification of this bit 
setting by other instructions has no effect as to whether priority dispatching is on 
or off. Modifications to the dispatching table ID have no effect until LCHAP ON 
is issued. | > 


An application program can check the status (on or off) of priority dispatching, 
obtain the ID number of the priority dispatching table currently being used, 
and/or transfer dispatching control to another table, a one-byte 
field--GMSPRI--is maintained in Segment 15. The low-order 7 bits of this field 
contain the dispatching table ID number, and the high-order bit is used to indicate 
priority dispatching status. The dispatching order may be selected during program 
execution by loading GMSPRI with the ID of the new table, and issuing LCHAP 
ON. Station chain dispatching may be invoked by issuing LCHAP OFF. 
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LCHECK determines the status of a station and synchronizes data transmission. 
Before an LCHECK is issued for another station, the station number must be 
stored in binary in SMSDSS. If there is an outstanding message previously written 
to the other station, LCHECK causes a wait state until that station has read the 
message. 


LCHECK--Check Status of Station-to-Station Write 


Note: If this wait state is terminated by an operator signaling attention 
(SMSIND=X‘40’), the outstanding write request is discarded. However, the 
message remains pending at the other station, and, when the LREAD is issued, a 
status of “no message pending” is returned. The cancel flag in SMSIND should be 
turned off before issuing LCHECK;; if the cancel flag is on, the LCHECK will 
return immediately with a condition code of 02 and status (SMSDST) set to 
X‘0800’. 


When the station has completed the read operation for the write request, the 
condition code is set, the wait state ends, control passes to the next sequential 
instruction, and a status code is stored in SMSDST. If there were no outstanding 
write operations, a status code of 0 is returned. 


Name Operation Operand 


[label] LCHECK ST [,TIO] 


ST 
Specifies that write operations to another station are to be checked. 


TIO 
Specifies that the appropriate status is to be returned and the condition 
code set to reflect the status of the last LWRITE ST issued. The application 
program retains control whether the LWRITE ST has been completed or 
not. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

O1 OK Zero status is returned. 

02 ST Nonzero status is returned: the status code is 
contained in SMSDST. (See Appendix E for an 
explanation of the status codes.) 

04 The LWRITE ST has not been completed (applies 


only to the TIO option). 


Program Checks: None arte set. 
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-LCONVERT 


This instruction converts between binary (bit) strings and character (byte) strings 
containing X‘FO’ and X‘F1’. The source field for the conversion is the data 
specified by operand 2. The result of the LCONVERT operation is placed in 
operand 1. This instruction has been implemented to facilitate support for 
COBOL and is not considered useful for general purpose application 
programming. 


LCONVERT--Convert Binary/Character 


Note: LCONVERT is an optional instruction, requiring that optional module P34 
be specified by the OPTMOD configuration macro. 


Name Operation Operand 


defldt1 defld2 

[label] LCONVERT (defrf1 ) : (defrf2) 
(reg!) (reg2 ) 
segi,disp1 seg2,disp2,len2 


, { TOBITS 
TOBYTES 


operand 1 
Is a field that receives the converted data. The field must not be in 
Segment 14 and the operand length is implied by the operand-2 length and 
the operation performed. If TOBITS is specified, the implied length of 
operand 1 is eight times that of operand 2. If TOBYTES is specified, the 
implied length is 1/8 that of operand 2. The length allowed for either 
operand 1 or 2 is from 1 to 4095 bytes. 


operand 2 
Is a field containing the binary or X‘FO/F1’ character string to be 
converted. The operand length is from 1 to 255 unless you specify register 
addressing, which allows a length ranging from 1 to 4095 bytes. 


TOBYTES 
Specifies a conversion from a character string of X‘FO’ and/or X‘F1’s to 
binary bits. X‘FO’ becomes a zero bit; X‘F1’, a one bit. Every eight 
X‘F1/FO’ characters become a byte of binary data. Any unfilled bit 
positions of the last byte are padded with zero bits. Conversion operates 
from left to right, and any operand-2 character bytes other than X‘FO’ or 
X‘F 1’ cause unpredictable results. 


TOBITS 
Specifies a conversion from a binary string to a character string of X‘FO’ 
and/or X‘F1’s. Each binary 1 bit becomes X‘F1’, and each binary 0 
becomes X‘FO’. Conversion operates from left to right. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 
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Programming Notes: LCONVERT could be used to convert a flag byte used in an © 
assembler application to an eight-byte character string that a COBOL application 
can examine. For example, using the LCONVERT instruction with the TOBITS 


operand: 
INPUT LCONVERT output 
fenccaad 2) (operand 1) 
x ‘24’ X‘FOFOF1FOFOF1FOFO’ 
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LDDI loads a halfword of immediate data into the low-order 2 bytes of a register. 
The high-order 4 bytes are set to 0. 


LDDI--Load Data Immediate 


Name Operation Operand 


[label] LDDI reg1,immdata2 


operand 1 
Is a register into which the immediate data is loaded. 


operand 2 
Is a 1- or 2-byte immediate data operand which becomes the halfword of 
immediate data. If a 1-byte numeric operand is used, it will be 
right-justified in the halfword of immediate data and the left byte will be 
set to 0. If a 1-byte character operand is used, it will be left-justified in the 
halfword immediate data, and the right byte will be set to a character blank. 


Condition Code: The condition code is not changed. 


Program. Checks: None are set. 
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‘LDFLD 


LDFLD loads a field into a register. If the field is less than 6 bytes long, it is 
treated as a signed binary number, and the leftmost bit is propagated to the left in 
the register. If the field is more than 6 bytes long, truncation occurs on the left, 
and the condition code is set. 


LDFLD--Load Field 


Name Operation Operand 


defcon2 
defld2 
[label] LDFLD regi, (defrf2) 
(reg2 ) 
. seg2,disp2,len2 


operand I 
Is a register into which the field is to be loaded. 


operand 2 
Defines the field to be loaded. The length of the field is from 0 to 4095; 
operands greater than 15 bytes long must be selected using register 
addressing. If 0 is specified, the register is loaded with binary zeros. 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0, or the length was 
specified as 0. 
02 NG The result is less than 0. 
03 8 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
OS GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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| LDFLDC 


LDFLDC--Load Field Character 


LDFLDC loads the signed binary equivalent of a decimal EBCDIC number into a 
register. Because the largest field that can be loaded is 15 digits, the range of 
values that can be loaded is from —140737488355328 to 140737488355327. A 
negative number is stored in twos complement form. If the field to be loaded 
contains other than the digits 0 through 9 or a leading minus sign (hex 60), the 
results of the conversion to binary are unpredictable. 


Name Operation Operand 


‘'defcon2 
defld2 
[label] LDFLDC regi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 
Is a register into which the field is to be loaded. 


operand 2 
Is a field to be loaded. The length of the field is from 0 to 4095; operands 
greater than 15 bytes long must be selected using register addressing. If 0 is 
specified, a condition code of hex 01 is set, and the register is loaded with 
Zeros. 


Condition Codes: One or more of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0, or the length was specified as 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
O08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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LDFLDL 
LDFLDL--Load Field Logical 


LDFLDL loads a field into a register. If the field is less than 6 bytes long it is 
treated as a 6-byte field by propagating a zero bit to the left in the register. If the 
field is more than 6 bytes long, truncation occurs on the left, and the condition 
code is set. 


Name Operation Operand 


defcon2 
defld2 
[label] LDFLDL regi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 
Is a register into which the field is to be loaded. 


operand 2 | 

Is a field to be loaded. The length of the field is from 0 to 4095; operands 
greater than 15 bytes long must be selected using register addressing. If 0 is 
specified, the register is loaded with binary zeros. 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0, or the length was specified as 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04. PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 


Programming Note: The source field must not overlap the register field (registers 
are in Segment 0). 
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LDFP 


LDFP loads the binary form of the PFP of a segment into the rightmost 2 bytes of 
a register. The leftmost 4 bytes are set to 0. 


LDFP--Load Primary Field Pointer 


Name Operation Operand 


[label] LDFP reg1,seg2 


operand I 
Is the register that is to receive the PFP. 


operand 2 
Is the segment number (0-15) whose PFP is to be loaded. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 can be set. 
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LDLN loads the binary value of the field length indicator (FLI) of a segment into 
the rightmost 2 bytes of a register. The leftmost 4 bytes of the register are set to 0. 


LDLN--Load Field Length Indicator 


Name Operation Operand 


[label] LDLN reg1,seg2 


operand 1 
Is the register that is to receive the FLI. 


operand 2 
Is the segment number (0-15) whose FLI is to be loaded. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 can be set. 
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LDRA--Load Register Address 


This instruction creates a register address in operand 1. A register address has the 
following format: 


Bits 00-07: (Set to zero) 
08-11: Segment space ID 
12-15: Segment 
16-31: Length 
32-47: Displacement 


If operand 2 is a segment-displacement operand (that is; ‘defcon2’, 

‘defld2’, or ‘seg2,disp2,len2’) then the register address loaded into operand 1 will 
contain: the current segment space ID and the segment number, length, and 
displacement associated with the operand. 


If operand 2 is an unmodified register address (that is, ‘(reg2)’) then the address 
will be loaded, as is, in operand 1. 


If operand 2 is a modified register address (that is, ‘(defrf)’) then the register 
address loaded into operand 1 will contain: 


e the segment space ID from operand 2 
e the segment number from operand 2 
¢ the length from the referenced ‘defrf’ 


e the sum of the displacement of the referenced defrf and the displacement in 
the register associated with the defrf. 


Name | Operation Operand 


defcon2 
defld2 
[label] LDRA regi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 
Is the register where the register address is created. 


operand 2 
Specifies the field or field label whose address becomes the register address 
in operand 1. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 and 27 can be set. 
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LDREG replaces the contents of one register with the contents of another 
register. The contents of reg2 are not changed. Both operands may specify the 
same register to test its contents. 


LDREG--Load Register 


Name Operation Operand 


[label] LDREG regi,reg2 


operand 1 
Is the register to be loaded. 


operand 2 
Is the. register whose contents are to be loaded into the first register 


specified. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE | The result is not equal to 0. 


Program Checks: None are set. 
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| LDSECT 


LDSECT--DSECT Definition (BEGIN) 


The LDSECT instruction starts the definition of a sequence of level (Ln) 
instructions. Each level instruction associates a label with a corresponding length 
and displacement. The LDSECT instruction options determine whether the above 
label (field) is defined within a segment or as an offset from a register. 


Name Operation Operand 


{ SDL= {seg|defld} 


label LDSECT BASE= { reg|[*} } [, DISP=number ] 


SDL 
Either a segment number or the label of a defld instruction. 


BASE 
A register number that is used, assumed to contain a register address 
locating the fields of the DSECT. 


DISP 
Either an ‘*’ or a number that specifies the starting displacement of the 
fields of the DSECT. An ‘*’ indicates the fields should start after the 
previous DEFLD or DEFREF specification for the specified segment. 


Note: The SDL and BASE keywords are mutually exclusive. 


If no keywords are specified then defaults are set as follows: 
1. Level instructions define fields within a segment. 


2. The starting displacement and segment number are defaulted to the last 
DEFLD instruction’s values encountered prior to the LDSECT instruction. 


You can use the SDL and DISP keywords in conjunction as follows: 


1. SDL specifies that the level instructions define fields within a segment and the 
SDL operand specifies the segment number. If SDL specifies the label of a 
DEFLD instruction then the field starts within the segment and at the 
displacement specified on the DEFLD instruction. 


2. DISP specifies the starting displacement within the segment. The DISP 
operand overrides the DEFLD displacement of SDL. If SDL specifies a 
DEFLD label and DISP specifies an ‘*’, then only the segment value of the 
SDL specification is used. 
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Programming Notes: The following are examples of how Level defiriition 
instructions may be used to describe a data area. 


BUFFER | 


In this example assume that the data area is to be located by register 5. 


BUFF LDSECT BASE=5 
— Li .. BUFFER 
L3 FLD1,10 
L3 FLD2,10 
L3 FLD3,40 

L3.-FLD3AB, REDEF=FLD3 

L5 FLD3A, 20 

L5 FLD3B,20 

LEND PRINT=ON 


BUFFER =§ DEFRFE — 5,0,60 oe 
FLD1 DEFRF 5,( BUFFER pal 0 


FLD2 DEFRF 5,,10 

FLD3 DEFRF 5,,40 

FLD3AB DEFRF 5,(FLD3),40 
FLD3A DEFRF  5,(FLD3AB),20 


FLD3B DEFRF 5,,20 


The following is another example of a DSECT definition: 


BUFF LDSECT SDL=3,DISP=0 
L1. BUFFER ~ 
L3 FLD1,10 
L3  FLD2,10 
-L3 FLD3,40 
L3 FLD3AB,REDEF=FLD3 
L5 FLD3A,20 
L5 FLD3B,20 
LEND PRINT=ON 


The following instructions are created from the coding above: 


BUFFER DEFLD 3,0,60 


5-178 


FLD1 DEFLD 3, BUFFER, 10 
FLD2 DEFLD 3,,10 

FLD3 DEFLD 3,,40 
FLD3AB DEFLD 3,FLD3 ,40 
FLD3A DEFLD 3, FLD3AB, 20 
FLD3B DEFLD 3-20 
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LDSEG places the contents of a Segment 1-header addressed field into a register. 
If the field is longer than 6 bytes, truncation occurs on the left; if the field is less 
than 6 bytes, it is treated as a signed binary number, and the leftmost bit is 
propagated to the left in the register. 


LDSEG--Load Segment 


Name Operation Operand 


[label] LDSEG reg1,seg2 


operand 1 
Is a register that is to contain the result of the operation. 


operand 2 
Is a field in the specified Segment 1 to be loaded into the register. The 
location of the field within the Segment 1 is determined by the PFP, and its 
length by the FLI. If the field length is 0, the register is loaded with binary 
Zeros. 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is‘0 or the field length was specified as 
0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01 and 03 can be set. 
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LDSEGC--Load Segment Character 


LDSEGC loads the binary equivalent of a Segment 1-header addressed field into 
a register. The range of values that can be loaded is from —140737488355328 to 
+ 140737488355327. A negative number is loaded in twos complement form. If 
the field contains other than the digits 0 through 9 or a leading minus sign (hex 
60), the results of the conversion to binary are unpredictable. 


Name Operation Operand 


[label] LDSEGC reg1,seg2 


operand 1 
Is the register into which the field is to be loaded. 


operand 2 
Is a field in the specified Segment 1 to be loaded into the register. The 
location of the field within the Segment 1 is determined by the primary 
field pointer, and its length by the field length indicator. The field length 
can be from 0 to 4095 bytes. If the field length is 0, the register is loaded 
with binary zeros. 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0 or the length is specified as 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 


Program Checks (hex): 01 or 03 can be set. 
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LDSEGLN 


LDSEGLN--Load Segment Length 


LDSEGLN loads the length of the Segment 1 (in binary) into a register. 


Name Operation Operand 


[label] LDSEGLN reg1,seg2 


operand 1 
Is the register that is to contain the Segment 1 length. 


operand 2 
Is the Segment 1 number whose length is to be loaded. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 can be set. 
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LDSFP--Load Secondary Field Pointer 


LDSFP loads the secondary field pointer (SFP) in binary into a register. The SFP 
is loaded into the rightmost 2 bytes of a register and the leftmost 4 bytes are set to 
zero. 


Name Operation Operand 


[label] LDSFP reg1,seg2 


operand I 
Is the register that is to contain the SFP. 


operand 2 
Is the Segment 1 number whose SFP is to be loaded. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 can be set. 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-185 


5-186 4700 Controller Programming Library, Volume 1: General Controller Programming 


The LEJECT instruction is used to separate pages of print in the output listing of 
your program. When issued, the LEJECT instruction will skip to the first 
printable line of a new page. The standard EJECT instruction of the DOS/VS or 
OS/VS assembler may be included, but will be ignored. 


LEJECT--Eject to a New Page 


Name Operation Operand 


[label] LEJECT 
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LEND 
LEND--DSECT Definition (End) 
The LEND instruction is used to indicate the end of a set of level (Ln) 


instructions. It causes the generation of either DEFLD’s or DEFRF’s that 
represent the preceding level instructions. 


Name Operation Operand 


LEND [ PRINT= {OFF|ON} ] 


PRINT , 
Is an optional operand that specifies whether the DEFLD or DEFRF 
instructions are to be listed (ON) or not listed (OFF). OFF is the default. 
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LEXEC 
| LEXEC--Execute 


The LEXEC instruction specifies the label of an instruction and a register. The 
labeled instruction is ORed with all or part of the data in the register. The 
resulting subject instruction is then executed. Neither the labeled instruction nor 
the register is altered by the ORing. 


The execute instruction performs the following sequence of steps to create the 
subject instruction: 


1. The labeled instruction is placed, left-justified, into an 8-byte buffer of zeros. 
The length of the labeled instruction is determined by its operation code. (The 
8-byte buffer is internal to the controller.) 


2. If register number 0 is specified by the execute instruction, no ORing takes 
place and the labeled instruction is the subject instruction. 


If the register number is not 0, then the rightmost 2, 4, or 6 bytes of the 
register are ORed with the leftmost 2, 4, or 6 bytes of the buffer, respectively. 
The number of bytes ORed is determined by an operand of the execute 
instruction. 


3. The subject instruction is now left-justified in the buffer. Notice that the 
length of the subject instruction is a function of the operation code of the 
subject instruction, and the length may be 2, 4, 6, or 8 bytes. 


The subject instruction may be any valid executable instruction except a jump, 
branch, or another LEXEC. 


LEXEC supports a WRTI subject instruction only if SPLIT=N is coded or 
defaulted on the APOPT instruction and the immediate data is in the addressed 
instruction. (WRTI is in 4700 Programming Library, Volume 4.) Control 
continues with the instruction following the LEXEC after the subject instruction 
completes, unless the subject instruction is an LEXIT, LSEEK (that branches), or 
instructions that modify SMSUIC. | 


The ORing of the labeled instruction with the register permits control of, for 
example, the operation code or Segment 1 number at execution time. 


Name Operation Operand 


[label] LEXEC reg1,addr [{,leniQ] 


reg 
Is the register to be used when forming the subject instruction. If you 
specify register 0, the labeled instruction is used as the subject instruction; 
that is, no ORing takes place. 

addr 


Is the label of the instruction (within Segment 14) which is to be ORed to 
reg1 when forming the subject instruction. The value of ''addr" must be 
even and may be an external symbol when RELOC=Y is specified in the 
APOPT instruction. 
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len 
For a register other than 0, len determines the number of bytes to be ORed. 
_ Valid values for Jen are 0, 2, 4, and 6. The default value is zero. A value of 
0 indicates that the length of the labeled instruction is the number of bytes 
to OR. Values of 2, 4, and 6 indicate that 2, 4, and 6 bytes are to be ORed, 
respectively. The two low-order instruction bytes cannot be changed for 
8-byte instructions. 


len must be 
e an unsigned decimal integer 


e the label of an EQUATE instruction that is associated with a decimal 
integer. 


Condition Code: The condition code can be set by the subject instruction. 
Program Checks (hex): Program checks can be generated by the LEXEC or the 
subject instruction; in either case, it is the address of the LEXEC instruction that 
is flagged as having caused the program check. The LEXEC instruction can cause 
the et OnOW INE program checks: 

03 = field length error (Jen not 0, 2, 4, or 6) 

(OB = instruction address error 


11 = subject instruction cannot be performed by LEXEC 


Programming Notes: The following example illustrates a use of LEXEC to create 
and execute the subject instruction LDSEGLN RO3, S04. 


GETLNO LDSEGLN_ RO3,0 


addressed instruction 


I 
I 


LDDI 5,X‘04’ -- load register 5 with ORing value 
GETLN4 LEXEC 5,;GETLNO -- create and execute subject instruction; 
o- a addressed instruction ... 1D30 
ie low-order 2 bytes of reg 5... 0004 
° | executed subject instruction... 1D34 . 


nsi | control returns to nsi 
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LEXIT signals the end of current processing for a station (usually, the end of a 
transaction). It waits until all devices assigned to the station are not busy and 
until all activity with the communication link is in a quiesced state. If any 
outstanding responses are required from a previous read operation with the host 
processor, LEXIT causes them to be sent. When the instruction is performed, the 
following fields in Segment 1 are set to 0: 


| LEXIT--End of Processing 


Relative instruction counter (SMSUIC) 
Pause Instruction Counter (SMSPCT) 
Indicator byte (SMSIND) 

Terminal group unit (SMSTGU) 


The instruction loop threshold count (SMSLTC) is set to 1 and the flag bit in 
SMSFG2 indicating program check routine in control is set off. 


The station ID is also restored (SMSSID in Segment 1) to ensure that the correct 
ID exists, and SMSLSE is set to the value in SMSLSB. 


After execution of LEXIT, the applicable station stops processing until an 
asynchronous entry point is activated for the station. The station relinquishes 
control even if an asynchronous input is pending at the time of the LEXIT 
execution. 


Note: When LREAD NOWAIT for a keyboard/display precedes the LEXIT, the 
operator must complete the input operation before the LEXIT is performed. See 
the 4700 Programming Library, Volume 4. 


A work terminal sharing a terminal with another station can relinquish control of 


that terminal before issuing LEXIT by using an ASSIGN instruction. (See the 
description of “ASSIGN” in Volume 4.) 


Name Operation Operand 


[label ] LEXIT 


Condition Codes: The code is not changed. 


Program Checks: None are set. 
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This instruction loads the high-resolution counter (HRC) into a six-byte field 
defined by the instruction. The low-order byte of the field contains 1/256 
seconds, and the high-order five bytes contain the seconds. The time measured 
by the HRC is the total time elapsed since the last controller load (IPL). 


LHRT--Load High-Resolution Counter 


Name Operation Operand 
defld2 
[label] LHRT (derr2) 
(reg2 ) 
. seg2,disp2 
operand 2 


Is a field to contain the timer value read from the HRC. The field length is 
six bytes, and any specified length is ignored. The field must not be in 
Segment 14. 

Condition Codes: The condition code is not changed. 


Program Checks (hex): 01, 02, or 27 can be set. 


Programming Notes: The following example uses LHRT to compute the time to 
perform operation X: 


BEGIN DEFLD 3,,6 6 BYTE SAVE AREA IN SEGMENT 3 
END DEFLD 3,,6 
LHRT BEGIN SAVE BEGIN COUNTER VALUE 


e (Operation X) 


LHRT END GET CURRENT COUNTER VALUE 
LDFLD 2,END 
SUBFLD = 2,BEGIN REG2 = INTERVAL 


The error factor of the interval measured is always less than the resolution of the 
counter. For example, the computed interval would be almost 1/256 second too 
large if the first LHRT was executed just before the counter increased, and the 
second LHRT was executed just after the counter increased. 
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LIFOFF changes the sequence of program execution by causing a branch when a 
specified bit is off. If the specified bit is on, no branching occurs. The ELSE 
operand can be coded to set the specified bit off if the branch is not taken and the 
next sequential instruction is executed. 


LIFOFF--If Off Then Branch 


Name Operation Operand 
defld2 

[label] LIFOFF (defrf2 ) ,oitnum,branch address 
creg2) 
seg2,disp2 


[, ELSE=SETOFF ] 


operand 2 
Is a field containing the bit to be tested. The length associated with this 
fixed field is ignored; the field is assumed to be 2 bytes long. If 
ELSE=SETOFF is coded, the Segment 1 number associated with the field 
may not be 14. 


bitnum 
Is the bit number (0-15), within the 2-byte field, to be tested. Bit number 0 
is the leftmost bit of the first byte. One of the following must be used for 
bitnum: 


1. An unsigned decimal integer (0 to 15) representing the bit to be tested. 
2. A1- or 2-byte hexadecimal value which, after translation, represents 
the bit to be tested. The following illustrates valid hexadecimal values 


and the resulting translation: 


Hex Bit to be Tested 


X*80’ =O 
X*40’ I 
X20" 2. 
X‘02’ 6 
X01’ 7 
X*8000’ 0 
X°4000’ 1 
X*0002’ 14 
X*O001’ 15 


3. A label of an EQUATE instruction associated with a decimal or a 
hexadecimal value (as described above) that identifies the bit to be 
tested. 
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branch address 
Is the label of the instruction to be executed if the bit tested is off. 


ELSE=SETOFF 
If used, will set the tested bit off if the branch is not taken. If it is omitted, 
no change is made to the bit tested. 


Condition Code: The condition code is not changed. 


Program Checks (hex): 01, 02, or OB can be set. 
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LIFON changes the sequence of program execution by causing a branch when a 
specified bit is on. If the specified bit is off no branching occurs. The ELSE 
operand can be coded to set the specified bit on if the branch is not taken and the 
next sequential instruction is executed. 


LIFON--If On Then Branch 


Name Operation Operand 


defld2 


[label] LIFON (Gdetrr2 ) ,oitnum,branch address 
(reg2 ) 
seg2,disp2 


[ ,ELSE=SETON] 


operand 2 
Is a field containing the bit to be tested. The length associated with this 
fixed field is ignored; the field is assumed to be 2 bytes long. If 
ELSE=SETON is coded, the segment number associated with the field may | 
not be 14. 


bitnum 
Is the bit number (0-15), within the 2-byte field, to be tested. Bit 
number 0 is the leftmost bit of the first byte. One of the following must be 
used for bitnum: 


1. An unsigned decimal integer (0 to 15) representing the bit to be tested. 
2. A1- or 2-byte hexadecimal value which, after translation, represents 
the bit to be tested. The following illustrates valid hexadecimal values 


and the resulting translation: 


Hex Bit to be Tested 


X80’ =O 
X*40’ I 
X20’ 2 
X‘02’ = 6 
XO’ 7 
X*8000’ 0 
X*4000’ 1 
X‘*0002’ 14 
X*0001’ 15 


3. A label of an EQUATE instruction associated with a decimal or a 
hexadecimal value (as described above) that identifies the bit to be 
tested. 
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branch address ae _ * ee eee ee SO , 
Is the label of the instruction to be executed if the bit tested is on. 


~ELSE=SETON 7 os 
If used, will set the tested bit on if the branch is not taken. If it is omitted, 
no change is made to the bit tested. 


Condition Code: The condition code is not changed. 
Program Checks (hex): 01, 02, or OB can be set. 


Programming Notes: In the following example, a work station has established a 
‘FLAGS’ field in one of its private storage Segment 1s. FLAGS is being used as a 
bit switch field by the work station and switch 4 is being used to indicate whether 
process x and y or just process y must be executed. When the switch is on, 
process y is to be executed; when the switch is off, process x and y are to be 
executed. Switch 4 is assumed to be set by another routine. 


FLAGS DEFLD 2) _ (1) 
Sw4 EQUATE 4 (2) 
START: @ 


LIFON FLAGS,SW4,SKIP (3) 


(nsi) (begin process x) 
° (end process x) 
SKIP 6 (begin process y) 


In this example: 


statement (1) defines the 2-byte field of bit switches; statement (2) is the 
equate for bit switch 4 (X‘0800’); and statement (3) controls program flow -- 
if the switch is on, a branch to SKIP is taken, and only process y is executed; if 
the switch is off, both process x and process y are executed. 
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LLOAD loads an application overlay into main storage. If a register other than 
0 is specified, the location of the first instruction in the overlay section is 
returned in the specified register. This location can be used to branch to an 
overlay section that was assembled independently of the root section. 


LLOAD--Load an Overlay Section into Main Storage 


Two different types of LLOAD operations can be performed, depending on 
whether or not the parameter PARM=EXP is specified. A ‘normal’ LLOAD 
operation is performed if PARM=EXP is not coded. In this case, the LLOAD 
instruction loads the specified overlay into main storage only if it is not already 
loaded. The location where the overlay is loaded is derived from the Resident 
Overlay Directory (ROD). 


An ‘expanded’ LLOAD operation is performed if the parameter PARM=EXP 
is coded in the LLOAD instruction. The ‘expanded’ LLOAD operation loads 
overlays into main storage at locations different from those defined in the 
ROD; in this case, the load address(es) where the overlay is to be loaded must 
be specified explicitly by you in the expanded LLOAD parameter list. 


Name Operation Operand 


defcon2 
defld2 
[label] LLOAD [regi], (defrf2) [, PARM=EXP] 
(reg2 ) 
seg2,disp2 


operand I 
Is the register that is to contain the location of the overlay section’s first 
instruction after this LLOAD is executed. LLOAD sets operand 1 to 
zero if a split overlay is loaded with no instruction section, or if an 
expanded LLOAD loads a nonsplit overlay into a segment other than 14. 
If operand 1 is omitted or specified as 0, the location of the overlay 
section’s first instruction is not returned, but the execution of the 
LLOAD still takes place. 


operand 2 
Defines the name of the overlay when PARM=EX?P is not coded, or 
defines the expanded LLOAD parameter list when PARM=EXP is 
coded. Any length is ignored. If PARM=EXpP is not coded, the first 8 
bytes are assumed to be the name of the overlay. If PARM=EXP is 
coded, the first 14 bytes are assumed to be the expanded LLOAD 
parameter list. 


PARM=EXP 
If coded, will perform an expanded LLOAD operation. The load 
address(es) for the overlay must be specified in the expanded LLOAD 
parameter list. 
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Condition Codes: One of the following is set: | 


Possible 
Hex Code Mnemonic Explanation | 
01 OK -_ The instruction was executed successfully. 


02 ST Status is stored. | 
| | | The status code is contained in SMSDST. 
This instruction may produce status 
that is defined in the IBM 4700 Controller Programming 
Library Volume 2: Disk and Diskette Programming. 


Program Checks (hex): 01, 02, 03, 06, 08, or 27 can be set. If PARM=EXP is 
coded, 11 can also be set. 


Programming Notes: LLOAD loads the application overlay into Segment 14 as 
defined by the STOVLY instructions in the calling routine and the OVLYSEC 
instruction at the beginning of the overlay. 


Operation of the LLOAD instruction includes data transfer because application 
overlays reside on a disk or diskette. Unsuccessful operations set a condition 
code to indicate that status has been stored. (Application programs, including 
overlays, are placed on a disk if CPYAP=Y and DSK=A were coded in the 
FILES configuration macro.) 


An expanded LLOAD operation loads overlays into user storage under control 
of the expanded LLOAD parameter list. When you code PARM=EXP in the 
LLOAD, overlays can be loaded into various locations in storage. You can 
specify load addresses in the expanded parameter list or you can allow them to 
default to the normal load addresses. Addresses in the parameter list are used if 
you set the appropriate flags. . 


Expanded LLOAD can be used when more than one station share a common 
application program containing a number of overlay sections, and the overlay 
sections are all defined to use the same storage space. 


The normal LLOAD operation does not load an overlay into more than one 
location. One station could load an overlay while another station required the 
same space to load another overlay from the same program. The latter station 
would have to wait until the first station completed operation and released the 

- space. You can avoid this situation by using the expanded LLOAD capability. 
You must define a set of storage areas where any overlay can be loaded. Your 
program must manage these storage areas by keeping track of whether they are 
‘occupied’ or ‘free’. | ; 


The definition of the LLOAD parameter list is provided by the COPY 
DEFELP instruction. (See Appendix B for details.) 


5-202 4700 Controller Programming Library, Volume 1: General Controller Programming 


The following describe the parameter list entries for expanded LLOAD: 


Field 


ELPOVN 
Bytes 0-7 


ELPFLG 
Byte 8 


ELPSEG 
Byte 9 


ELPCLA 
Bytes 10,11 


ELPILA 
Bytes 12,13 


Contents 


The 8-byte name of an existing overlay. 
This name is used by LLOAD to locate the overlay. 


This field contains the flags that indicate 

which parameter list entries, if any, should be used to 
determine the relative load address or addresses for the 
overlay. If neither flag is set, a program check (hex 17) will 
occur. 


Flag bit masks: 


ELPCSF This flag causes LLOAD to derive load 
addresses This flag causes LLOAD to derive . 
load addresses for the overlay from the ELPSEG 
and ELPCLA fields. 


ELPISF _ This flag causes the load address to be taken 
from the ELPILA field. 


This field specifies the segment (0 - 15) 
where the overlay will be loaded. It is used only if the 
appropriate flag is set. 


This field specifies the relative address 

within the segment defined by ELPSEG, where the overlay 
will be loaded. This value must be an even number. If 
ELPSEG specifies Segment 14 then this value must not be 
less than 48 (hex 30). This field is used only if the 
appropriate flag is set. 


This field specifies the relative address 

within the application program for the overlay. This value 
must be even; and must be greater than or equal to 48 (hex 
30). This field is used only if the appropriate flag is set. 


If the overlay section is to be loaded at a location other than that defined in the 
ROD, the use of branching instructions that refer to locations within the 
overlay causes incorrect operations to occur. Branching instructions cannot be 
used to transfer from outside an overlay (such as from a root section) to a point 


within an overlay. 
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In the same sense, do not code the OVLYEP parameter of the OVLYSEC | 
instruction if the overlay is to be loaded in a location other than that defined in 
the ROD. Coding OVLYEP creates a branch to the entry point label. The 
entry point of such an overlay should always be the instruction following the 
2-byte header in the overlay, or the entry point must be calculated before the 
branch to the entry point occurs. | 


The same restriction applies when referencing DEFLD or DEFCON 
instructions that refer to labels within the overlay. All references should 
instead first calculate the current overlay load address, and then add the offset 
to the desired data fields within the overlay. 
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LMERGE collates sequenced data items from two separate input blocks into a 
third output block as specified by the parameters contained in a list. After the 
merging is completed, execution continues with the next sequential instruction 
(unless a program check occurs). 


LMERGE--Merge Blocks of Records 


The instruction points to a parameter list (see the DEFMER copy file) 
consisting of block pointers, data item descriptions, and other variables. Two 
input blocks of fixed-length data items are merged into an output block. Each 
data item contains a collating key at a fixed displacement in the item. The data 
items in each block occupy contiguous storage space. 


Note: This is an optional instruction that requires optional module P5C be 
specified in the OPTMOD configuration instruction. 


In general, LMERGE attempts to place one of the two current items from the 
input blocks into the next available portion of the output block. LMERGE 
tries to place the current item with the smaller (larger) key into the output 
block for an ascending (descending) merge. The current item from the input 
block, which is tried first, is called the primary item; the other input block’s 
current item is called the secondary item. 


The following definitions will help clarify LMERGE. 


Current Item of an Input Block- is the data item being considered for 
placement into an output block. 


Current Item of an Output Block - is the next available position in the output 
block. 


Data Set Swap Flag - is a bit switch in the return byte of the LMERGE 
parameter list. It will be switched on when a sequence check 
occurs on a merge unit boundary. The flag can be used in a sort 
application that is data driven. 


Empty Input Block - is an input block that LMERGE has marked as empty 
(by setting a bit in the return flag byte of the LMERGE parameter 
list) because the last physical item has just been copied from the 
input to the output block. 


Fragmented Key - A key of a data item is said to be fragmented if its contents 
(from most significant to least significant) are not sequential from 


left to right. 


Merge Unit - is the size, in bytes, of the smallest string of ordered items that 
are to be read from or written to a disk or diskette. 


Merge Unit Boundary -_ is used to test for a sequence check that will occur if: 
e Both the primary and secondary items of the input blocks are 


out of sequence with respect to the previous data item of the 
output block. 
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e The current output pointer minus the displacement to the begin 
- pointer is a multiple of the Merge Unit. 


Null Input Block - is an input block that the application program has marked 
as null (by setting a bit in the input flag byte of the parameter list). 
LMERGE will not copy items from a null input block. 


Previous Item - is the item most recently copied to the output block. The 
displacement to the previous item plus the item length equals the 
displacement to the current item of the output block. 


Primary Item - is the item with the smaller key for an ascending merge (or 
larger key for a descending merge) of the 2 input blocks. If the 
keys are equal then the primary item is the current item from block 
1. (If one input block is null then the primary item is the current 
item from the non-null block.) 


Secondary Item- is the item with the larger key for an ascending merge (or 
smaller key for a descending merge) of the 2 input blocks. If the 
keys are equal then the secondary item is the current item from 
block 2. (If one input block is null then the secondary item is the 
current item from the non-null block.) 


Sequence Check - occurs during operation of LMERGE when both current 
items of the input blocks are out of sequence with the previous 
item of the output block. If one of the input blocks is a null block, 
a sequence check occurs when the active input block current item 
is out of sequence with the previous item of the output block. 


LMERGE operates according to the following rules: 


When invoking LMERGE or after the output block contents have been written 
to a data set because of a sequence check, the key of the physically last data 
item in the output block should be set to hex 00s (ascending merge) or hex FFs 
(descending merge). This will avoid an unwanted sequence check. 


If the current pointer of any block equals the end pointer of the block, 
LMERGE begins by setting the current pointer equal to the begin pointer of 
the block. Therefore, having the current pointer equal to the begin pointer and 
having the current pointer equal to the end pointer are equivalent. 


If the input flag byte indicates that both input blocks are null, LMERGE ends 
with the both-input-blocks-null bit on in the return flag byte. . 


If the input flag byte indicates that one input block is null, a one-way merge is 


performed, using the other block as the sole input source. The 
input-block-empty bit in the return flag byte is not set on for the null block. 
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If the key of the previous item of the output block is in sequence with the key 
of the primary item, the primary item is copied into the current position of the 
output block. The current pointer of the block that contained the primary item 
is increased by the item length, and, if its new value equals the block’s end 
pointer, the appropriate input-block-empty bit of the return flag byte is 
switched on. 


If the key of the previous item of the output block is not in sequence with the 
key of the primary item, and is in sequence with the secondary item’s key, the | 
secondary item is copied into the current position of the output block. The 
current pointer of the block that contained the secondary item is increased by 
the item length, and, if its new value equals the block’s end pointer, the 
appropriate input-block-empty bit of the return flag byte is set. 


After a data item is copied to the output block, the previous item becomes the 
item just moved, and the output block’s current pointer is increased by the item 
length. If this new current pointer equals the end pointer, the output-block-full 
bit of the return flag byte is switched on. 


If any bit or bits of the return flag byte have been switched on, execution of the 
next sequential instruction begins; otherwise, an attempt is made to copy 
another data item to the output block. 


The merge output block should always be written out to a disk or diskette data 
set (unless the current pointer equals the begin pointer) when the return flag 
byte requests processing (output block full, sequence check on a merge unit. 
boundary, or both input blocks null) before another LMERGE is executed. 


If the key of the previous item of the output block is out of sequence with both 
the primary and secondary item’s keys: 


1. Neither input item is copied into the output block. 

2. The sequence check condition code is set. 

3. If the merge unit is not zero and the current pointer minus the begin pointer 
of the output block is a multiple of the merge unit, the | 
sequence-check-on-a-merge-unit-boundary of the return flag is set. 


Otherwise, the sequence-check-not-on-a-merge-unit-boundary is set. 


4. LMERGE processing ends and program operation continues with the next 
sequential instruction. 
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LMERGE Parameter List: The parameter list has the following format: 
Displ Size Parameter 
0 1 Input flag byte. 


The following bits are set/reset by the application 


program. 

Bit Meaning 

0 =( indicates ascending keys 

= 1 indicates descending keys 

1-5 Reserved 

6 = 1 indicates input block 1 null 

7 =1 indicates input block 2 null 
1 1 Return Flag Byte 

The following bits are set/reset by each operation 

of LMERGE: 

Bit Meaning 

0 Output block full 


(Note: The current pointer of the output block 
equals its end pointer.) 

1 Input block 1 empty 
(Note: The current pointer of input block 1 
equals its end pointer.) | 

2 Input block 2 empty 
(Note: The current pointer of input block 2 
equals its end pointer.) 

3 A sequence check occurred, 
and the current pointer for the output block 
was not on a merge unit boundary. 

4 Data-set swap flag: 
A sequence check occurred, and the current 
pointer for the output block 
was on a merge unit boundary. 

5 Both input blocks were null input blocks 
(that is; both null-block 
of the input flag byte are set). 

6-7 Reserved. 
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Displ 


22 


24 


26 


28 


Size 


Parameter 


Displacement to the beginning of the first 

input block within its segment (begin pointer). 
Displacement to the end of the first input 

block within its segment (that is, the byte 

following the last item) (end pointer). 

Displacement to the beginning of the second 

input block within its segment (begin pointer). 
Displacement to the end of the second input 

block within its segment (that is, the byte 

following the last item) (end pointer). 

Length of each data item. 

Displacement to the collating key from the start 

of an item. 

Length of the collating key. 

The number of the segment containing the first 

input block. 

The number of the segment containing the second 

input block. 

The number of the segment containing the output block. 
This may not be 14. 

Displacement to the beginning of the output block 
within its segment (begin pointer). 

Displacement to the end of the output block within 

its segment (that is; the byte following the last item) 
(end pointer). 

Displacement to the current item in the first input 

block (initially set to the beginning of the block and 
subsequently modified by the controller during LMERGE 
processing). This current item is the next entry from 
input block 1 to be considered for placement into the 
output block (current pointer). 

Displacement to the current item in the second input 
block (initially set to the beginning of the block and 
subsequently modified by the controller during LMERGE 
processing). This current item is the next entry from 
input block 2 to be considered for placement into the 
output block (current pointer). 

Displacement to the current item in the output block 
(initially set equal to the beginning of the block 

and subsequently modified by the controller during 
LMERGE processing). The current item in the output 
block is the next position available to receive a 

data item (current pointer). 

Merge unit. This is the size in bytes of the smallest 
string of ordered items that are input from, or output 

to, a data set while merging. The value of the merge unit 
determines which sequence check bit of the return flag 
byte is switched on if a sequence check occurs. 

If the merge unit is set to zero by the application program, 
and if a sequence check does occur, then the 
sequence-check-not-on-a-merge-unit-boundary bit is 
switched on. If the merge unit is not zero, then the merge 


output block should be a multiple of the merge unit. 
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Name Operation Operand 


seg2 
defld2 
[label] LMERGE (defrf2 ) 
(reg2 ) 
seg2,disp2 


operand 2 
is a field containing the parameter list. The field cannot be in 
Segment 14. If you specify seg2 only, the displacement of the list within 
the segment is determined from the primary field pointer (PFP). Any 
field length is ignored. 


When using register addressing to locate a parameter list it can be in 
noncurrent segment space. However, if the parameter list contains 
addresses (segments, displacements) of other storage areas then these 
storage areas must be in the current segment space. 


Condition Codes: At completion of LMERGE execution, one of the following 
condition codes is set: 


Hex Code Explanation 
01 Sequence check did not occur. 
02 Sequence check did occur. 


Below is a table of all possible combinations of condition codes (CC) and bits 
returned in the return flag byte of the parameter list: 


CC: Flag: Description: 
01 80 Output block full. 
01 40 Input block 1 empty. 
01 CO Input block 1 empty and output block full. 
01 20 Input block. 2 empty. 
01 AO Input block 2 empty and output block full. 
01 04 Both input blocks were null input blocks. 
02 10 Sequence check, not on merge unit boundary. 
02 08 Sequence check, on merge unit boundary. 
Program Checks (hex): 01, 02, 09, 11, or 27 can be set. 
Program check 01 results from one of the following conditions: 
¢ Parameter list is located in an invalid or undefined segment. 
e Invalid or undefined segment referred to in the parameter list. 
Program check 02 results from one of the following conditions: | 
e The parameter list is not completely contained within the given segment. 
e Input block 1, input block 2, or output block is not completely contained 


within its segment. 
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5-211 to 5-258 
missing from original 
document 


Field Value 


IND 
INL 
OUD 
OUL 
LIC 
FNC 
LID 
LOD 
CNT 
TST X‘80’_ = -- indicates ending on 
translation break. 


4C’ 
3F’ 


Data Translation Example 2: In this example, two translation tables are 
generated, each with four entries. The input code ranges are X‘1B’ to X‘1P’, 
and X‘61’ to X‘64’. 


Note: Generating one table with a range of X‘1B’ to X‘64’ would result 
in a table with 74 entries, requiring more storage space. 


In addition to the operations of example 1, translation control functions for 
case shift (up and down -- CASn and DS), transparent write (TW), and 
positioning (ADV) are illustrated in this example, as well as a demonstration of 
the handling of an input stream with exceptional data (that is, data that is not 
to be processed by LTRT). In this example, the exceptional data is 2 bytes long, 
and is immediately preceded by the input code of X‘61’. Routine SPEC61 is 
designed to process this data. This example results in two executions of LTRT. 


BEGIN _...,DSECT=Y.,... 


DEFTRPS EQUATE 2 
COPY  DEFTRP Note 1 
TRANS2 DEFLD DEFTRPS,,4 


INPUT DEFLD  §83,1,14 input area’s location 
OUTPUT DEFLD S4,1,12 output area’s location 
PLIST DEFCON AL2(3), INS=3 

AL2(INPUT-BQK$S3), IND=1 

AL2(L‘INPUT), INL=14 

AL2(4), OUS=4 

AL2(OUTPUT-BQKS$S4), OUD=1 

AL2(L‘OUTPUT), OUL=12 

X80’, MSK=X‘80’ 

AL1(2), NTT=2 

AL1(1), PTT=1 

AL1(1), CTT=1 

XL10‘00’, fill 

AL2(14), TTS1=14 

YL2(TTBLY), TTD1=addr of TTBLY in seg 14 

AL2(14), translation table 2’s segment 

YL2(TTBLZ) translation table 2’s addr 
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_ Notes: | 


1. Define LTRT parameter list fields in Segment 2 and define an additional 
4-byte field (TRANS2) for the segment number and displacement of the 
second translation table. 


TTBLY 


TTBLZ 
CONT 


SPEC61 


LTRTBEG 
LTRTENT . 
(X‘1C’,,CAS2), 


(X‘1D’,X‘2D’,ADV), 


(X‘1E’ X‘FF’,TW) 


LTRTGEN 


LTRTBEG 
LTRTENT . ee 
(X‘62’,,,X°7F’), 
(X‘63’,X*20’) 

(X‘64’,X‘21’,DS) 
LTRTGEN | — 
MVFXD TRPPAR,PLIST 
LTRT TRPPAR 


LEXIT 


BRAN CONT 


2. Initialize LTRT parameter list. 


RANGE=(X‘1B’,X‘1E’,SKIP) 
(X‘1B’,X*22’), 


generate table 1 


RANGE=(X‘61’,X‘64’,X‘00’) 
(X‘61’,,,X°C1’,SPEC61,3), 


generate table 2 


Note 2 


Note 3 


3. For the sample input shown following, LTRT ends processing of input code 
X‘61’ with a branch to SPEC61. When SPEC61 makes the branch to 
CONT, LTRT begins operation for a second time. Note that between the 
first and second operations of LTRT, the parameter list has not been 
reinitialized. 
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INPUT (seg 3) IB | 1D; 1E | 02 | AA| BB 
0 l 2 3 
a. 


OUTPUT (seg 4) 
(first execution) 


The translation process for the first operation of LTRT follows: 


1. 


1B 


ic | 62 | 61 | 12 | 34 | 63 | 64 
4 5 6 \7} 8] 9} t ato alouloato4 
0 1 2 3 4 5 

b. c 86d. e. f. g. 


h. 


Translation definition and ADV translation control definition. Output, 
starting with the next input code, is spaced forward one position. Byte 3 of 
Segment 4 was not modified by this operation. 


Translation definition and TW translation control definition. AA and BB 
are passed to the output area as is, although out of range. 02 is the length 
specification for the transparent write. 


CAS2 translation control definition causes shift to translation table 2 
(TTBLZ). In the parameter list, PTT is set to 1 and CTT is set to 2. 


Program control definition; however, no bits in the mask specified match 
any bits in the parameter list mask. Translation continues. 


Program control definition and translation control definition. LTRT 
operation ends with a condition code of 02 and status of translation break. 
Program flow branches to SPEC61 to process the exceptional data (1234) 
following input code 61. SPEC61 does not place any data in the output 
area. When SPEC61 branches back to CONT, LTRT operation resumes, 
starting with input code 63 because the translation control definition 
associated with 61 specified a displacement of three positions to the next 
input code to be processed. Because the parameter list is not reinitialized 
between operations, the input displacement value (IND) field will be set to 
12 when the second LTRT operation starts. 
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The fields of the parameter list that are set or modified at the end of the 
first LTRT operation are shown below, along with the values resulting from 
this first operation of LTRT: | 


Field Value — 


IND 12 
INL 3 
OUD 7 
OUL 6 
PTT 1 
CTT 2 
LIC X‘61’ 
FNC X‘00’ 
LID 9 
LOD 7 
CNT 6 


TST  X‘80’ -- indicates ending on 
translation break 


When the branch is made to CONT, LTRT begins operation for the second 
time. This time, for the sample input, translation will end with condition 
code 01 (input exhausted) and program operation will continue with the 
next sequential instruction. At the end of this second operation, the output 
area appears as follows: 


f. og. oh. 
OUTPUT { | { 
(seg 4) 22 | 2D | —-| FF | AA] BB| 20 | 21 | 22 


0 Z 3 4 5 6 7 8 9 10 ttl 12 


6. Translate definition only. 


7. Translation definition and DS translation control definition. Translation 
control shifts back to table 1 (TTBLY). 


8. Translate definition only. 
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The parameter list fields that are modified or set by LTRT operation appear as 
follows after this second operation: 


Field Value 


IND 15 

INL 0 

OUD 10 

OUL 3 

PTT 1 

CTT 1 

LIC X‘1B’ 

FNC X00’ 

LID 14 

LOD 9 

CNT 3 (for 2nd operation only) 
TST X‘00’ -- indicates translation was completed 


(all input data processed) 
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LTRTBEG is used to define the range of input codes in the translation table. 
The table will be used during LTRT operation. Included in the instruction is 
the mode of handling (during LTRT operation) input codes that are out of the 
range of codes in the table. 


LTRTBEG--Translate Table Begin 


This instruction initializes the contents of the global array, which is to be 
subsequently used in generating a translation table, so that each input code has 
no processing requirements (no ochr, func, mask, addr, or inlen operands: see 
the LTRTENT instruction). No constants in the application program are 
generated by this instruction. 


Name Operation Operand 


[label] LTRTBEG [RANGE=( [low code], [high code], [mode] )] 


RANGE 
Indicates the range of codes recognized for this translation table, and 
action to be taken when codes are not within the specified range. 


low code: Is the value of the lowest code to be used; low code 
defaults to zero. The value may be X‘nn’ (hexadecimal), 
nnn (decimal), or C‘c’ (character). 


high code: Is the value of the highest code to be used; high code 
defaults to 255. The value may be X‘nn’ (hexadecimal), 
nnn (decimal), or C‘c’ (character). 


mode 
Specifies the treatment (during LTRT operation) of codes that are out of 
the range specified: 


ERROR Specifies that an out-of-range code will cause translation to 
stop with the appropriate condition code. ERROR is the 
default for mode. 


SKIP Specifies that out-of-range codes are to be processed as a 
NULL input code. Translation is not stopped. 


MOVE Specifies that any out-of-range code is to be moved directly to 
the output area without translation. Translation is not stopped. 


use Specifies that the value of use will be placed into the output 


area for any code that is out of range. The use value may be 
X‘nn’ (hexadecimal), nnn (decimal), or C‘c’ (character). 
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Each operand in the LTRTENT defines the processing requirements for an 
input code. All input codes may be defined by one LTRTENT instruction or 
may be described by a number of LTRTENT instructions. The number of 
operands per instruction for DOS users is limited to 200. 


LTRTENT--Translate Table Entry 


This instruction modifies the contents of the global array that is to be 
subsequently used in generating a translation table. No constants are 
generated in application program by this instruction. 


Name Operation Operand 


[label] LTRTENT (code, {lochr],[func], [mask], 
[addr], [inlen]) [,(...)] 


code 
Is a one-byte character that is to be translated. The value may be X‘00’ 
to X‘FF’ but must also be within the range specified by the LTRTBEG 
instruction. The specification of code may be X‘nn’ (hexadecimal), nnn 
(decimal), or C‘c’ (character). 


If the same code is specified more than once, only the last occurrence will 
be used in the translation table. 


ochr | 
Is a byte or group of bytes identifying the output for the associated input 
code. ochr may be 1 to 7 bytes of characters (C‘cc...c’) or 1 to 4 bytes of 
hexadecimal data (X‘nn...n’). If ochr is not specified, no ochr will be 
generated for the input code during LTRT operation. 


func 
May be one of the following functions to be performed when the 
associated input code is recognized. The functions value, defined below 
for each function, for the last input code processed will be returned in 
the parameter list (TRPFNC) when LTRT completes. If the last input 
code processed has no associated function, X‘00’ will be returned. 


CASn 
Is a shift to the translation table identified by n (1 to 4). The shift 
will be effective on the next input code. The value in the 
translation table for CASn is (X‘40’ +n-1). 


DS 
Is a downshift to the previously used table. The new table will be 
effective on the next input code. More than one consecutive DS 
without an intervening CASn forces a return to translation table 1. 
The value in the translation table for DS is X‘60’. 

TW 


Specifies that a transparent write (no translation) is to be 
performed for the number of bytes specified in the first (or 
second) byte following the input code that caused the TW 
function. For that length, all input that immediately follows the 
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length byte will be placed in the output area as received. The | 

input length (see inlen below) may be set to V1 (or V2, 
respectively) for transparent write operations. If inlen was not 
specified, the default is V1. The value in the translation table for 
TW is X‘61’. 


BSP 
Specifies that the current output text position should be moved 
back one position nondestructively. The output text position will 
not be modified if an attempt is made to backspace beyond the 
beginning of the output area. The value in the translation table for 
BSP is X‘62’. | 


ADV . 
Specifies that the current output text position should be advanced 
one position nondestructively. The value in the translation table 
for ADV is X‘63’. 


ufc 
Can be specified by the user to be a hexadecimal value (X‘01’ to 
X‘3F’) or a decimal value (1 to 63). This value will be returned to 
the parameter list when the associated input code is recognized. 


mask 
Specifies that this input code is a translation break. The mask (nonzero) 
may be hexadecimal (X‘nn’), decimal (nnn), or character (C‘c’) and 
must match one or more bits of the current parameter list mask 
(TRPMSK) to be effective. | 


addr 
Is the label of an AP routine that is to get control when the translation 
break (see mask) is effective. If addr is not specified for an effective 
break code, control goes to the next sequential instruction. 


If the label specified does not appear in the current assembly, an EXTRN 
must exist for the label and the corresponding assembly must contain an 
ENTRY for the label. 


inlen 
Specifies length to be associated with the code, inlen may be any 
self-defining term in the range 1 to 255 (X‘01’ to X‘FF’), or it may be 
V1 or V2. 


At operation time, inlen of 1 to 255 represents the displacements (in 
bytes) from the input code currently being processed to the next input 
code to be processed. The default is 1 (except for TW; see TW above). 


Specifying the letter V1 (or V2) for inlen indicates that the input code’s 
associated length is variable. The length (0 to 255) is in the first (or 
second, respectively) byte following the input code, and represents the 
displacement from the byte following the length byte to the next input 
code to be processed. 
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| LIRTGEN--Translate Table Configuration 


LTRTGEN causes the translation table defined by the preceding LTRTBEG 
and LTRTENT instructions to become part of the program’s data definition. 


LTRTGEN uses the assembler global array initialized by LTRTBEG and 
modified by LTRTENT to create a series of constants that are the translation 
table. 


LTRTGEN has no operands. 


Name Operation Operand 


[label] LTRTGEN 


The format of the translation table is as follows. 


2 bytes 2 bytes 


Length of Table Off—Pointed String Displacement 


Reserved 


Header Low Code |Length of Entry} Header Flags Use Value 


Number of Codes in Table 


Entry 1 


Entry n 
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LWAIT--Wait 


The LWAIT instruction causes the currently operating station to enter wait 
state, and therefore become nondispatchable until an ending condition is 
present. 


Name Operation Operand 


[label] LWAIT 


Condition Codes: None are set 
Program Checks: None arte set. 
Programming Notes: Ending conditions are: 


1. an attention, signaled by the operator pressing the keyboard Reset key 
twice in succession, or 


2. any asynchronous interrupts for which an entry point has been specified in 
the application program BEGIN instruction. 


When an ending condition occurs, the station becomes dispatchable and 
operation continues with the next sequential instruction (that is, the instruction 
following LWAIT) with SMSWAIT set to a one-byte value indicating the 
ending condition. 


The LWAIT instruction could therefore be followed by: 


SETFPL SMSWAIT 
LSEEK 1,label 


where "label'’ locates a table with each entry containing an ending condition 
value and an associated branch address. 


The ending condition values are listed below in order of priority (highest 
priority is first): 


Hex value Meaning 


10 CPU message pending 

20 ALA message pending 

30 terminal message pending 
40 station message pending 
50 program interrupt pending 
60 timer interrupt pending 

70 attention signaled 
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If more than one ending condition is present, only the highest priority 
condition’s value is posted. 


If any ending conditions are present when the LWAIT instruction is performed, 
a dispatch cycle is taken before operation continues with the next sequential 
instruction. | | | 


If an interrupt occurs that causes the controller‘to end an LWAIT and if the 


station then issues an LEXIT, the controller does not dispatch the station at the 
asynchronous entry point for that interrupt. 
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LWRITE 


LWRITE--WRITE Station-to-Station Message 


LWRITE writes data to another logical work station. Before the LWRITE is 
issued, the station number must be stored in binary form in SMSDSS. 


An LWRITE to another station is a request only. No data is transferred until 
the receiving station issues an LREAD. The LWRITE is rejected if the 
receiving station already has a message waiting. 


When an LWRITE ST instruction with a length of zero is issued, the receiving 
station, when it completes the LREAD ST, will receive a condition code of 1, 
and SMSIML will be set to zero. 


Immediate status is returned (X‘0401’) if the receiving station’s application 
program does not have an AST entry point. The LWRITE still occurs, 
however, and the status may be ignored if the receiving station’s program 
eventually performs an LREAD. 


Name Operation Operand 


defcon2 
defld2 
[label] LWRITE ST, (defrf2 ) 
(reg2 ) 
seg2 
seg2,disp2,len2 


ST 
Specifies a write to another station. 


operand 2 
Is a field containing the data to be written. If only seg2 is specified, the 
data is written starting at the location pointed to by the secondary field 
pointer (SFP) up to, but not including, the location pointed to by the 
primary field pointer (PFP); otherwise, the data is as addressed. The 
maximum length of a message to be written is 255 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK The write operation was completed successfully. 
02 ST Status is returned; the status code is contained in 


SMSDST. (See Appendix E for an explanation of 
the status codes.) 


Program Checks (hex): 01, 02, or 27 can be set. 
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MASK 
MASK--Mask (For EDIT Instruction) 


MASK produces a data string used by the EDIT instruction to format monetary 
fields. 


Name Operation Operand 


label MASK [fill,] t‘'characters' 


fill 
Is a one-byte hexadecimal (X‘xx’), character (C‘c’), or binary 
B‘nnnnnnnn’ value used in place of leading zeros when zero suppression 
is specified. If this operand is omitted, blanks are used as the fill for zero 
suppression. 


t‘characters’ 
Is the control field in which ¢ indicates the type of data: X for 
hexadecimal or C for character; and ‘characters’ is made up of the 
following characters: 


9 Indicates a significant position. 

Z Indicates leading zero suppression. 
$ Is a dollar-sign insertion. 

b Indicates blank insertion. 


All other characters are insertion characters. These may be any characters 
except 9, Z, $, and b. 


See the EDIT instruction for further description. 
Notes: 
1. An insertion character cannot be the last character in the mask field. 


2. The label of an EQUATE instruction cannot be used as an operand for 


MASK. 
The MASK format is: 
pumber or none: poe number ane Mask Char 1 {| Mask Char 2 Mask Char n 
insertion chars | of chars Character 
0 8 16 24 32 39 
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MOD specifies the type, modulus number, and weighting factors used in the 
modulus check done by the MODCHK instruction. The number of weighting 
factors determines the maximum length of the field to be checked. 


MOD--Modulus Factor (For MODCHK Instruction) 


Name Operation Operand 


label MOD modnum, { wt1 } 
CWET WE ine FW) 


MA 
AP 
3 UN 
modnum 


Is an absolute number from zero to 99 used as the modulus number in 
the check. 


wtl1,wt2,...,.wtn 
Are up to 31 four-character weighting factors in the range of -128 to 
+127. If only one weighting factor is specified, it must be coded without 
parentheses. 


MA 
Specifies a type of modulus check in which each character in the field is 
multiplied by the corresponding weighting factor, and the sum of these 
multiplications is divided by the modulus number. This type of modulus 
check is performed if the type operand is omitted. 


((nl X wtl) + (n2 X wt2) +... 
(nn X wtn)) / modnum 


AP 
Specifies a type of modulus check in which each character in the field is 
multiplied by the corresponding weighting factor, and the numbers 
comprising each result of the multiplications are divided into two 
separate values; the numbers in the thousands (K), hundreds (H) and 
tens (T) positions are used as one value and the number in the units (U) 
position as another value. The new values from the results are then 
added together. For example: 5 x 25 = 125 --> 12 +5 =17. The sum 
of all the additions is divided by the modulus number. 


ni X wtl -->KIJHITIUI 


n2 X wt2 -->K2H2T2U2 
nn X wtn -->KnHnTnUn 


(KIHITI + U1) + (K2H2T2 + U2) + ...(KnHnTn + Un)) / 
modnum 
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Specifies a type of modulus check in which each character in the field is 
multiplied by the corresponding weighting factor and the only number 
kept from each result of the multiplications is the number in the units 
position. For example, 5 X 25 = 125 --> 5. The sum of these numbers 
is then divided by the modulus number. 


ni X wtl --> Ul 
n2 X wt2 --> U2 
nn X wtn --> Un 
((U1) + (U2) + ...Un)) / modnum 


The format of the modulus factor is as follows: 


MOD 
t ; 
Modulus Weight for Weight for Weight for 
i 
Type i Length number digit 2 digit n 
0 3 16 A 24 " 31 A 


—— | 


Max is 31 0—99 —128to+127 —128tot127. —128 to +127 
Where: | 
Type = 000 for UN 
= 010 for MA 
= 100 for AP 
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MODCHK 
| MODCHK--Modulus Check 


MODCHK checks a field for valid EBCDIC numeric characters, and that the 
length is less than or equal to the number of weights. The field is then 
validated by a modulus check which uses the following parameter list defined 


by the MOD instruction: 
Bit: 0 3 7 8 15 16 23 24 31 


Refer to the MOD instruction for a description of these parameters. 


Name Operation Operand 


[label] MODCHK seg1,reg2, { label } 
(reg3 ) 


operand I 
Is a field in the specified segment to be checked. The start of the field is 
indicated by the primary field pointer, and the length by the field length 
indicator. 


operand 2 
Is a register (1-15) that will contain the results of MODCHK. If this 
operand is specified as zero, it does not indicate a register. 


operand 3 
Points to a MOD instruction or it’s equivalent. 


label 
Is the label of the MOD instruction that defines the parameter list 
used by MODCHK. The label may be an external symbol when 
RELOC=yY is specified on the APOPT instruction. 


(reg3) 


Is the register containing the address of a field with data in the 
same format that MOD generates. 
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3-280 


All modulus checks begin by multiplying each character in the field by the | 
corresponding weighting factor. For example, the first character in the field is 
multiplied by the first weighting factor listed in MOD. The last step of all the 
modulus checks is to divide the sum of the results (or variations of the results) 
of these multiplications by the modulus number (refer to the descriptions of the 
modulus type operands in the MOD instruction for the different types of 
modulus checks). If there is no remainder, the field checked is good in terms of 
the modulus check. 


If reg2 specified in MODCHK and the modulus number (modnum) are nonzero 
values, the remainder generated by the modulus check is stored in the reg2. If 
the modulus number is zero and the register is nonzero, the sum of all the 
results (or variations of the results) of the multiplications performed in the 
modulus check is stored in the register. If the register is zero and the modulus 
number is nonzero, the remainder is not stored. If both the register and 
modulus number are zeros, no modulus check occurs, and a condition code of 
hex 01 is set. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK The check was successful, or the register and 
modulus numbers were zero. 
02 IL The field is too long. 
04 NN The field is not numeric. 
08 MD A modulus error occurred (can be returned only if 


register is zero). 
Program Checks (hex): 01, 02, or 27 can be set. 
Programming Note: If you do not specify reg2 as zero, you are indicating a 
request to do further processing of the result of the modulus check. For 


example, you may wish to calculate a modulus-check digit. 


A condition code of 01 is returned even if there is a remainder. Condition code 
08 can be returned only when the specified register is zero. 
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MPYFLD 


MPYFLD--Multiply Field 


MPYFLD algebraically multiplies the binary contents of a register by the 
binary contents of a field. The result is placed in the register. 


Name Operation Operand 


defcon2 
defld2 
[label] MPYFLD regi, (defrf2 ) 
(reg2) 
seg2,disp2,len2 


operand 1 
Is a register that contains the multiplicand. At the end of the operation 
this operand contains the product. 


operand 2 
Is a field that contains the multiplier. The length of the field must be 
from zero to 6 bytes; if the length is zero, the register is multiplied by 
zero; if the length is not zero, the leftmost bit in the field is the sign. 


| Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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MPYFLDL 


MPYFLDL multiplies the contents of a register by the contents of a 6-byte 
field. If the field is less than 6 bytes, it is treated as a 6-byte field by 
propagating zeros. The binary contents of the register are then multiplied by 
the binary contents of the field and the result is placed in the register. 


MPYFLDL--Multiply Field Logical 


Name Operation Operand 


defcon2 
defld2 
[label] MPYFLDL reg1, (defr£2 ) 
(reg2 ) 
seg2,disp2,len2 


operand i 
Is a register that contains the multiplicand. At the end of the operation 
this operand contains the product. 


operand 2 
Is a field that contains the multiplier. The length of the field must be 
from zero to 6 bytes; if the length is zero, the register is multiplied by 
Zero. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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MPYREG algebraically multiplies the binary contents of one register by the 
binary contents of another register. The result is placed in the register 
indicated by operand 1. 


MPYREG--Multiply Register 


Name Operation Operand 


[label] MPYREG reg1,reg2 


operand I 
Is a register that contains the multiplicand. At the end of the operation, 
this register contains the result. 


operand 2 
Is a register that contains the multiplier. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O1 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
0A An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks: None are set. 
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This instruction multiplies zoned decimal operand 1 by zoned decimal operand 
2, and replaces operand 1 with the result. The length of either operand is 1-63 
bytes; an operand over 15 bytes must be selected using register addressing. 


MPYZ--Multiply Zoned Decimal 


Note: This is an optional instruction; module P31 must be specified on the 
OPTMOD configuration macro. 


Name Operation Operand 


defcon2 
defldt1 defld2 
[label] MPYZ (defrf1) ; (defrf2 ) 
(reg1) (reg2) 
seg1,disp1,lent seg2,disp2,len2 | 


operand 1 
Is a field containing the zoned decimal multiplicand, and the location of 
the result. If the result is less than the operand length, each high-order 
byte is set to X‘FO’. The field must not be in Segment 14. 


operand 2 
Is a field containing the zoned decimal multiplier. 


Condition Codes: One of the following can be set: 


_ Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-287 


5-288 4700 Controller Programming Library, Volume 1: General Controller Programming | 


This instruction converts a zoned decimal number into displayable form. The 
zoned decimal number specified by operand 2 is moved to operand 1. The sign 
(zone bits of the least significant number) is ORed with X‘FO’ to give the digit 
a displayable value. 


MVCZ--Move and Convert Zoned Decimal 


Note: MVCZ is an optional instruction, and requires specifying module P31 on 
the OPTMOD configuration macro. 


Name Operation Operand 


defcon2 
defld1 defld2 
[label] MVCZ (defrf1) : (defrf2) 
(reg1 ) (reg2 ) 
segi,dispi,lent seg2 ,disp2,len2 
operand 1 


Is the field into which the zoned decimal data is moved for displaying. If 
this operand is longer than operand 2, this operand is padded to the left 
(high-order positions) with X‘FO’s. If this operand is shorter than 
operand 2, the high-order digits are truncated. In either case, an 
appropriate condition code is set. The field must not be in Segment 14. 


operand 2 
Is a field of decimal numeric zoned data to be moved to operand 1. 


Note: Operands 1 and 2 can range 1 to 15 bytes for non-register addresses 
fields, and up to 63 bytes when register addressing is used. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 EQ The operands were equal lengths. 
04 Operand 1 was padded with X‘FO’. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 
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MVDI moves a one- or two-byte immediate operand to a field. At the end of 
the operation, the primary field pointer of the segment to receive the immediate 
data points 1 byte past the end of the field (unless register addressing is used), 
and the field length indicator is not changed. 


MVDI--Move Data Immediate 


Name Operation Operand 


defldi 

[label] MVDI (defrf1) , immdata2 
(reg ) 
seg1,disp 


operand 1 
Is a field into which the immediate data is to be moved. The field must 
not be in Segment 14. 


operand 2 
Is one or two bytes of immediate data. 


Condition Code: The code is not changed. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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| MVFLD--Move Field 


MVFLD moves the contents of a field to the specified segment, starting at the 
location specified by the PFP of that segment. The number of bytes to be 
moved is determined by the specified or implied length of the second operand 
(the field to be moved) unless the specified length is 0. At the end of the 
operation, the FLI is unchanged and the PFP, of the segment that received the 
field, points to the byte following the field. 


Name Operation Operand 


defcon2 
defld2 
[label] MVFLD segl, (defrf2) 
(reg2 ) 
seg2,disp2,len2. 


operand 1 
Is a field in the specified segment to receive the data. The number of 
bytes can range from 1 to 32 767. If you specify a length of 0 for the 
second operand, then the FLI of operand 1 determines the number of 
bytes to be moved. If the field lengths of both fields are zero, no 
operation takes place. The field must not be in Segment 14. 


operand 2 
Is a field that is to be moved. This field can be from 1 to 15 bytes long 
unless you specify register addressing, which allows a length ranging 
from 1 to 32 767 bytes. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, or 27 can be set. 
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MVFLDR moves the contents of a field to a segment, starting at the location 
specified by the PFP of that segment. The number of bytes to be moved is 
determined by the specified or implied length of the second operand; that is, 
the field to be moved. At the end of the operation, the FLI is unchanged and 
the PFP, of the segment that received the field, points to the byte following the 
field. 


| MVFLDR--Move Field Reverse 


MVEFLDR reverses the order of the source data so that the first byte in the 
source field becomes the last byte in the target field. 


MVFLDR requires the P60 optional module specified by the OPTMOD macro 
in your system configuration. 


Name Operation Operand 


defcon2 
defld2 
[label] MVFLDR segi, (defrf2) 
(reg2.) 
seg2,disp2,len2 


operand 1 
Is a field in the specified segment to receive the data. The number of 
bytes can range from 1 to 32 767. If you specify a length of 0 for the 
second operand, then the FLI of operand 1 determines the number of 
bytes to be moved. If the field lengths of both fields are zero, no 
operation takes place. The field must not be in Segment 14. 


operand 2 
Is a field that is to be moved. This field can be from 1 to 15 bytes long 
unless you specify register addressing, which allows a length ranging 
from 1 to 32 767 bytes. 

Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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MVFXD moves the contents of a field to another field. The number of bytes 
to be moved is determined by the specified or implied length of the second 
operand; that is, the field to be moved. At the end of the operation, the FLI is 
unchanged and the PFP, of the segment that received the field, points to the 
byte following the field. 


| MVFXD--Move Fixed 


Name Operation Operand 


defcon2 
lefld1 defld2 
[label] MVFXD (defrf1) P (defrf2 ) 
} (reg!) (reg2 ) 
seg1,disp1 seg2,disp2,len2 


operand 1 
Is a field that receives the operand 2 data. The length of this field is 
ignored. The field must not be in Segment 14. 


operand 2 
Is the field to be moved. The length of this field determines how many 
bytes are moved. The length can be from 1 to 255 unless you specify 
register addressing, which allows a length ranging 1 to 32 767. If the 
field length is zero, no operation results. 


Condition Codes: The code is not changed. 

Program Checks (hex): 01, 02, or 27 can be set. 

Programming Notes: For example, a savings deposit is either transmitted to the 
host processor to update the data base or journaled on the diskette for later 
transmission. The fields required in either case are: 


transaction code / accountno. rf amount 


The following example shows the instructions that build the transaction code 
and account number portions of the output message. 


OUTFLD DEFLD OUTSEG,0,19 1 
SAVDEPCD DEFCON C‘01’ 2 
SAVRTN 3 
MVFXD OUTFLD,SAVDEPCD 4 
MVSEG OUTSEG,INPUTSEG 5 
MVSEG OUTSEG,INPUTSEG 6 


1 Defines the entire output field. 

2 Defines the transaction type code for a savings deposit as 01. This avoids 
storing or transmitting the 6-byte code entered by the teller. 

3 (Miscellaneous processing) 
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4 Moves the transaction type code to the first two bytes of OUTFLD. The . 
PFP changes, when the MVFXD is operated, to point to the third byte of 

OUTFLD. 

5 Moves the account number to OUTFLD. 

6 Moves the amount. 
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-MVEXDR 


| MVFXDR--Move Fixed Reverse 


MVEFXDR moves the contents of a field to another field. The number of bytes 
to be moved is determined by the specified or implied length of the second 
operand; that is, the field to be moved. At the end of the operation, the FLI is 
unchanged and the PFP, of the segment that received the field, points to the 
byte following the field. 


MVFXDR reverses the order of the source data so that the first byte in the 
source field becomes the last byte in the target field. 


MVFXDR requires the P60 optional module specified by the OPTMOD macro 
in your system configuration. 


Name Operation Operand 


defcon2 
| defldt defld2 
[label] MVFXDR (defrf1 ) , (defrf2) 
(reg1) (reg2 ) 
seg1,displ1 seg2,disp2,len2 
operand 1 


Is a field that receives the operand 2 data. The length of this field is 
ignored. The field must not be in Segment 14. 


operand 2 
Is the field to be moved. The length of this field determines how many 
bytes are moved. The length can be from 1 to 255 unless you specify 
register addressing, which allows a length ranging 1 to 32 767. If the 
field length is zero, no operation results. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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| MVSEG--Move Segment 


MVSEG moves the contents of a segment-header addressed field to another 
segment-header addressed field. The number of bytes to be moved is 
determined by the FLI of the second operand; that is, the field to be moved. 


If the move is between two locations within the same segment, the SFP is used 
as the beginning of the receiving field. At the end of the operation, the FLI is 
unchanged and the PFP points to the byte following the field. 


If the move is between different segments, the PFP of the receiving segment is 
used as the beginning of the receiving field. At the end of the operation, the 
PFP points one byte past the end of the receiving field; the PFP of the segment 
containing the original field is not changed. 


In both cases, the SFP and FLI of the segment containing the data to be moved 
are unchanged. 


Name Operation Operand 


[label] MVSEG seg1,seg2 


operand 1 
Is a field in the specified segment to receive the data. The field must not 
be in Segment 14. 


operand 2 
Is a field in the specified segment whose contents are to be moved. The 
location of the field to be moved is determined by the PFP, and the 
number of bytes to be moved is determined by the FLI. The field length 
can be 1 to 32 767 bytes. If the field length is zero then no operation 
results. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01 or 02 may be set. 
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MVSEGR moves the contents of a segment-header addressed field to another 
segment-header addressed field. The number of bytes to be moved is 
determined by the FLI of the second operand; that is, the field to be moved. 


| MVSEGR--Move Segment Reverse 


If the move is between two locations within the same segment, the SFP is used 
as the beginning of the receiving field. At the end of the operation, the FLI is 
unchanged and the PFP points to the byte following the field. 


If the move is between different segments, the PFP of the receiving segment is 
used as the beginning of the receiving field. At the end of the operation, the 
PFP points one byte past the end of the receiving field; the PFP of the segment 
containing the original field is not changed. 


In both cases, the SFP and FLI of the segment containing the data to be moved 
are unchanged. 


MVSEGER reverses the order of the source data so that the first byte in the 
source field becomes the last byte in the target field. 


MVSEGR requires the P60 optional module specified by the OPTMOD macro 
in your system configuration. 


Name Operation Operand 


[label] MVSEGR seg1,seg2 


operand 1 
Is a field in the specified segment to receive the data. The field must not 
be in Segment 14. 


operand 2 
Is a field in the specified segment whose contents are to be moved. The 
location of the field to be moved is determined by the PFP, and the 
number of bytes to be moved is determined by the FLI. The field length 
can be 1 to 32 767 bytes. If the field length is zero then no operation 
results. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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| OVLYSEC 


OVLYSEC--Define Load Address and Entry Point 


OVLYSEC defines the load address and entry point of overlay sections 
assembled under the nonrelocatable and relocatable assembler options 
(RELOCEN or RELOC=Y specified in the APOPT instruction). OVLYSEC 
must be the first instruction in the overlay section. 


In relocatable and nonrelocatable assemblies, the OVLYSEC instruction causes 
an ADDMEM command to be generated for use by the Host Support. For 
relocatable and nonrelocatable assemblies, the label of the OVLYSEC 
instruction is used to name the CSECT produced. 


For nonrelocatable assembly, the load address can be expressed symbolically 
only when the root and overlay sections are assembled together. Otherwise, the 
load address must be stated as an absolute location in Segment 14. 


For relocatable assemblies, the load address can be expressed symbolically 
regardless of whether the root and overlay are assembled together or 
separately. 


Name Operation Operand 


org 
label OVLYSEC ORIGIN= ([inst-org] [,const-org] ) } 


[,OVLYEP=entry] 


i , VERS ION= \ version ! | 
0 


[ , LNSTR= {¥ ] [, INSNAME=name ] 
Y 


org 
inst-org 
const-org 
The org parameter is used to specify the load address for an overlay 
being assembled with the nonrelocate or relocate options in effect. 


The inst-org and const-org operands are used only for split application 
programs. See Appendix F for further information. 


These parameters may be specified as an asterisk (*), the label of a 
STOVLY instruction, or a decimal number, as follows: 


e indicates that the section, for relocatable assemblies, is to be 
loaded at the end of the root or other overlay section already 
in storage. For nonrelocatable assemblies, an * indicates that 
the current value of the assembler instruction counter is to be 
used as the load address. 
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label is the label of a STOVLY instruction that defines an overlay 
load point. For relocatable assemblies, the STOVLY 
instruction and the OVLYSEC instruction referring to it can 
be in the same or separate assemblies; for nonrelocatable 
assemblies STOVLY and OVLYSEC must appear in the same 
assembly. 


number is the absolute location, expressed in decimal, in Segment 14 at 
which the overlay section is to be loaded. This specification 
must be used when the nonrelocatable assembler option is 
specified and the root and overlay are being assembled 
separately. 


entry 
Is the label of the instruction that is to be used as an entry point. If this 
operand is omitted, the entry point is the first byte after the 2-byte 
header in the overlay section. 


Note: Do not specify an entry point if you load the overlay using the 
“expanded” LLOAD instruction. In this case, use the default entry point 
at the first byte following the two-byte header. 


version 
Is the version number (0 to 255) of the overlay section. 


INSTR 
This operand is used only for split application programs. See Appendix F 
for further information. 


INSNAME 7 
This operand is used only for split application programs. See Appendix F 
for further information. 


Condition Codes: The code is not changed. 


Program Checks (hex): None can be set. 
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PAKFLD 


PAKFLD--Pack Field 


PAKFLD changes a hexadecimal EBCDIC number (for example: C‘012F’ 
which equals X*FOF1F2C6’) in a field to a packed value (X‘012F’ from the 
preceding example) and places the packed value in a segment-header addressed 
field. In the packed expression, each 4 bits represents a digit of the EBCDIC 
number. If an odd number of digits are packed, the leftmost 4 bits of the 
leftmost byte in the packed field are set to zeros. 


Notes: 
1. This packed expression cannot be used in arithmetic operations. 


2. The length of the packed field will be one-half the length of the unpacked 
field. 


The hexadecimal representations and their packed equivalents are: 


Hexadecimal Packed 
Digit Representation Equivalent (4 bits) 


0 FO O (0000) 
1 FI 1 (0001) 
2 F2 2 (0010) 
3 F3 3 (0011) 
4 F4 4 (0100) 
5 F5 5 CO1V01) 
6 F6 6 (0110) 
7 F7 7 (0111) 
8 F8 8 (1000) 
9g F9 9 (1001) 
A C1 A (1010) 
B C2 B-C10713 
C C3 C (1100) 
D C4 D (1101) 
EB C5 C170) 
F Co Be ie eal ei) 
Name Operation Operand 
defcon2 
defld2 
[label] PAKFLD segi, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 
Is a field in the specified segment to receive the packed data. The 
segment number cannot be 14. The location of the field to contain this 
packed value within operand 1 is indicated by the primary field pointer 
(PFP). The field length indicator is ignored unless the length of the 
unpacked field is zero. Following the operation of the instruction, the 
PFP points to the first byte past the end of the packed field. 
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operand 2 a _ | 
Is a field to be packed. If you use register addressing, the operand length 
can range from 0 to 255 bytes; if you use fixed field addressing, the 
length ranges 0 to 15 bytes. If the length is 0, the length indicated by the 
field length indicator of seg/ is used. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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PAKSEG changes a hexadecimal number (for example, C‘012F’ which equals 
X‘FOF1F2C6’) in a segment-addressed EBCDIC field to a packed value 
(X‘012F’) and places it in a segment-header addressed field. In the packed 
expression, each 4 bits represents a digit of the hexadecimal number. If an odd 
number of digits are packed, the leftmost 4 bits of the leftmost byte in the 
packed field are set to zeros. 


PAKSEG--Pack Segment 


Notes: 
1. This packed expression cannot be used in arithmetic operations. 


2. The length of the field to contain the packed value will be one-half the 
length of the field that contains the value to be packed. 


Refer to the table under PAKFLD for the hexadecimal values and their packed 
equivalents. : 


Name Operation Operand 


[label] PAKSEG segi,seg2 


operand I 
Is a field in the specified segment to receive the packed field. The 
segment number cannot be 14. If the operands refer to different 
segments, the location within this segment is indicated by the primary 
field pointer (PFP). If both operands refer to the same segment, the 
location of the packed field is indicated by the secondary field pointer; 
when the operation is completed, the PFP points to the first byte past the 
end of the packed field and the SFP is unchanged. In either case, the 
field length indicator is ignored. 


operand 2 
Is a field in the specified segment to be packed. The PFP indicates the 
start of the field, and the field length indicator gives the length (0 to 
255) of the field containing the value to be packed. If the length is zero, 
no operation occurs. When the operation is completed, the PFP is 
unchanged. 


Condition Codes: The code is not changed. 

Program Checks (hex): 01, 02, or 03 may be set. 

Programming Notes: For example, if the processed teller transaction is packed 
before being written to the diskette, it requires only half the space normally 
needed. The following shows the instructions used to pack the output field. 


The field before being processed is: 


X“FOFLF3F3F8F2F2FOF6FSF2C1C4C4’ 
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The packed field is: 
X*01338220652ADD" | 


In this example, the source and result fields overlap so that result data does not 
replace source data yet to be packed. 


ped 


OUTFLD DEFLD OUTSEG,0,14 


e@ 
PAKRIN SETFPL OUTFLD 2 
 SETSFP OUTFLD | a 3. 
PAKSEG OUTSEG,OUTSEG 4 


Defines the source field. 

Sets the PFP and FLI of OUTSEG to describe the source field. 

Sets the SFP to the beginning of OUTFLD. 

Packs the data in place. After operation, the leftmost 7 bytes of OUTFLD 
contain the packed data. 


dm G N= 


The pack function can also be used to allow the teller to enter hexadecimal 
information; for example, the control operator could be told to enter the 
parameter list used to start the communication link. 
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PAUSE suspends processing for the logical work station currently in control. 
Processing resumes with the next sequential instruction when all other stations 
have had an opportunity to process. 


PAUSE--Suspend Processing 


Name Operation Operand 


[label] PAUSE 


Condition Codes: The code is not changed. 


Program Checks: None are set. 
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PLPCMD 


PLPCMD--Post-List Processor Commands 


The PLPCMD instruction generates commands for execution by the post-list 
processor when editing the listing produced by the assembler. 


Name Operation Operand 


( EDIT 
PLPCMD | NOEDIT 
DELETE 

\ NODELETE 


EDIT 
Resumes post-list processing of assembled output. 


NOEDIT 
Temporarily stops post-list processing of assembled output. When the 
post-list processor encounters this in the assembled program, the 
assembled output is passed unprocessed to the output listing. A 
PLPCMD instruction with the EDIT operand resumed post-list 
processing of the assembled output lines. | 


DELETE 
Causes the post-list processor to delete all further assembler output lines 
from the output listing. 


NODELETE 
Causes the post-list processor to resume normal post-list processing of 
output lines. This restores the processing deleted by the DELETE 
operand. 
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The PRINTI instruction enables you to print the assembler instructions (labels, 
mnemonics, and operands only), in the Post List Processor (PLP) listing, that 
result from expansion of user-written macros found in the application program. 
To print these instructions, PRINTI ON must be coded before the desired 
macro is encountered or be the first statement in the macro definition. The ON 
state remains in effect until PRINTI OFF is coded. When PRINTI ON is 
coded, all assembler instructions will be printed regardless of the degree of 
macro nesting. All assembler instructions encountered in open code will be 
printed twice when PRINTI ON is in effect. 


PRINTI--Print Macro Expansion 


Name Operation Operand 


[label] PRINTI [ ON|OFF |] 


For Example: 


4700 assembler instructions 


PRINTI ON Macro 

USERMAC Assembler instructions (printed once in 
PRINTI OFF PLP listing) 

° Mend 


4700 assembler instructions (not printed in PLP listing) 


Macro 
USERMAC PRINTI ON 
° Assembler instructions (printed once in 
° PLP listing) 
® PRINTI OFF 
e Mend 


PRINTI ON 


4700 assembler instructions (printed twice, encountered in open code) 


Note: The PRINTI macro instruction prints only the label field, operation-code 
field, and operand field. (No comment fields are printed.) Only the first 112 
characters of the operand field are printed; remaining characters are omitted. 
PRINTI does not support the BEGIN macro. Omitted operands are not 
printed. For example: 


DEFLD _ 2,,0 -- if coded, will print: 
DEFLD 2,0 


The following macro instructions issue a PRINTI ON instruction upon entry 
and issue a PRINTI OFF instruction on exit: 


APBDUMP 
DEFDMP 
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REBASE 
REBASE--Restore the Base Register for a DSECT 


The REBASE instruction restores the base register for the specified DSECT to 
the register value previously saved by a SAVEBASE instruction. 


Name Operation Operand 


REBASE label 


label 
The label of an LDSECT instruction. 
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| SAVEBASE 


The SAVEBASE instruction saves the current base register value of the 
specified DSECT in a global symbol table. This value was specified either at 
definition time with the BASE keyword on the LDSECT instruction or by the 
later specification of a base register with the USEBASE instruction. 


SAVEBASE--Save the Base Register for a DSECT 


Name Operation Operand 


SAVEBASE label 


label 
The label of an LDSECT instruction. 
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SCALE--Scale Number 


The SCALE instruction verifies and formats a relatively free-form 
character-type number. 


Inputs for the SCALE instruction are: 


1. A relatively free-form character-type input area which may have a one-byte 
header field preceding the number field. The input area is unchanged by 
the execution of the SCALE instruction. 


2. A parameter list defined by a COPY DEFSCA instruction. 
Outputs for the SCALE instruction are: 
1. The formatted character-type number in an output area. 


2. The PFP of the segment containing the output area points to the first byte 
of the output area. The FLI is set to the length of the output area. If the 
fixed field is indexed, then the new setting of the primary field pointer will 
include the index value. 


The parameter list contains the following fields (see COPY DEFSCA in 
Appendix B) and must contain the following information: 


SCALEN -- 1-byte field defining the length of the output area in bytes. The 
output area immediately follows the parameter list. 


SCACHR -- A 1-byte field containing, in EBCDIC, the input data character to 
be treated as a decimal place character (scale character). If the input data does 
not contain a scale character, one is assumed immediately following the 
rightmost character of the input area. If a scale character appears more than 
once in the input area, only the rightmost occurrence is treated as the scale 
character. The scale character is not placed into the output area. 


SCAFAC -- A 1-byte scale factor defining the number of times the input 
number will be multiplied by 10 before being placed into the output area. Each 
multiplication by 10 effectively shifts the scale character 1 character position to 
the right. The input area is not changed by this operation. 


SCAINP -- A 1-byte input flag indicating which of the six special header 
characters defined in the SCAHDR field will be placed into the leftmost byte 
of the output area. 


Bits 0-5 -- Mask on (1) or off (0) special header characters 1-6 
(respectively) in the SCAHDR field, as described in SCAHDR below. 


Bits 6 and 7 -- Reserved and must be set to 0. 


SCAHDR -- A 6-byte field containing six special header characters (SHCs). If 
the first character of the input area equals any of these special header 
characters, the input area is said to contain an optional header field. The 
header field character will be placed in the leftmost byte of the output area if 
the corresponding flag bit in the SCAINP field is on. If the corresponding bit is 
off, the header field is ignored. 
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SCADEL -- A 4-byte field containing four delete characters. Delete characters 
are those characters that are considered valid but are to be deleted from 
positions to the left of the scale character before the number appears in the 
output area. If a scale character appears more than once in the number field of 
the input area, the rightmost scale character (the scale character) will be deleted 
as described under SCACHR above. Other scale characters will be deleted if 
the scale character is also a delete character, otherwise they will be placed in 
the output area. 


SCARES -- A 3-byte reserved field that must be set to 0. 


SCASIG -- A 1-byte field used by the SCALE instruction to inform the 
application program of the number of significant digits in the output area. This 
number is determined by: | 


¢ The total bytes from the leftmost nonzero character (excluding the header 
character, if present) to the rightmost position of the output area; or 


¢ The scale factor, whichever is larger. 


Note: To use this instruction, you must code the P68 operand on the 
OPTMOD configuration macro. 


Name Operation Operand 


defld2 
[label] SCALE seg, (defrf2) 

ceeg2)) 

seg2,disp2 


operand I oO 4 
Is a field in the specified segment defining the input area. The PFP and 
FLI define the location within the segment and the field length. 


operand 2 
Is a field containing the parameter list. The length implied is ignored as 
the parameter list has a fixed length. The field must not be in Segment 
14. The output area immediately follows the parameter list. The length 
of the output area is specified in the parameter list (SCALEN). 


Note: The input and output areas should not overlap. If they do overlap, the 
results are unpredictable. 
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Condition Code: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK SCALE was successful. 
02 An underflow occurs. 
04 An overflow occurs. 
08 Invalid input data. 


Program Checks (hex): 01, 02, 09, 11, or 27 can be set. 

Note: Program check 11 (invalid parameter list) can be set by: 
a. SCALE factor greater than output area length. 
b. Reserved bits (6,7) of SCAINP are not zero. 


Programming Notes: The following shows how various input forms (in dollars 
and cents) could be reformatted to scale character-type numbers: 


Input at SCALE 
Terminal Output Area 
$12.3 0001230 
13,000 1300000 
1.26 0000126 
-.6 -000060 

+2 0000200 


If arithmetic operations are to be performed, the application could convert the 
scaled character-type number to a binary number using the LDSEGC 
instruction. 


An example of how this instruction is used to produce scaled numbers in the 
instruction’s output area is shown below. 


NOTOK EQUATE X‘OER’ 
DEFSCAS EQUATE 3 1 
COPY  DEFSCA 2 


FORMAT DEFCON X‘07’,C*.’,X*02’,B‘01000000’, 3 
C‘+-$$$$’,C‘,,,,’,‘000000’,X‘00’ 
MVFXD SCAPAR,FORMAT 4 
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Read the input number from the keyboard into Segment 2, 
set the PFP to the first byte of the number, and set 
the FLI to the length of the number. For example: 


- seg2. $12.3 
PFP FLI 
SCALE 2,SCAPAR 


JUMP NOTOK,ERROR 


LDSEGC 4,3 © 


1 Defines Segment 3 as the location of the SCALE parameter list (required 
for the COPY DEFSCA instruction). 

2 Copies the SCALE parameter list (SSCAPAR) into the code. 

3 Defines the values for the SCALE parameter list as follows: 


Parameter 

Value List Field Meaning 

X‘07’ SCALEN | Output area is 7 bytes. 

C. SCACHR Scale character is a decimal point. 

X‘02’ SCAFAC = Move decimal point two places to 

os right and fill with character zeros if 

necessary. 

B‘01000000’ SCAINP } Minus (—) sign is to be recognized as 

C*+-$$$$’ SCAHDR } a special header character and is to be 

| placed in the leftmost position of the 

output area when it appears in the 
leftmost position of the input area. 

Co ~SCADEL Delete commas to the left of scale 

a character. 
X ‘000000’ SCARES Must be set to zeros. 


~ X‘00’ SCASIG Initializes SCASIG to zero for 
"3 as SCALE to update with number of 
significant digits. 
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4 Initializes SCALE parameter list. 

5 Issue SCALE instruction to place formatted character-type number in the 
output area immediately following the parameter list. Following the 
execution of the instruction, the PFP and FLI are set as follows: 


< 


FLI 


seg3 


Parameter list PFP 

6 Tests the condition code following the execution of the SCALE instruction. 
If CC=02, 04, and/or 08, branch.:to an ERROR subroutine. 

7 Loads register 4 with the binary equivalent of the character type number 
placed in the output area of the parameter list, and addressed by the PFP 
and FLI in Segment 3. 


When using the SCALE instruction, the condition code is set following the 
execution of the instruction to identify various error conditions. The error 
conditions are: | 


e underflow 
e overflow 
e invalid input data 


An underflow condition results from truncating an input value to the right of 
the scaled character. This condition can be the result of either incorrectly 
entered data or the improper specification of the scale factor (SCAFAC). An 
example of incorrectly entered data is: 


Input SCALE Output 
1.234 0000123 


The input is incorrect because the program does not expect a three-place 
decimal value (SCAFAC = X‘02’) and places the scaled character-type 
number right-justified in the output area after moving the decimal place two 
character positions to the right. If, in the example, SCAFAC was specified as 
X‘01’, all input values having two or more characters to the right of the scale 
character would be truncated. 


Overflow can result if the output area, specified by SCALEN, is too small. The 

output area must be sufficient to accept the largest input value plus a special 

header character, if specified. The following is an example of overflow; note 

that the most significant digit is dropped, not the special header character: 
Input SCALE Output 


-13,526.35 -352635 
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The SCALE instruction also validity-checks the input for non-numeric 
characters. If an input character is non-numeric and is not a special header 
character or delete character, the data is moved to the output area as though it 
were valid, but the condition code is set to indicate invalid data. For example: 
Input SCALE Output 
ABC.DE OOABCDE 


The condition code setting is cumulative. For example, a code of 06 indicates 
that both an overflow and underflow condition occurred. 
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SCRPAD--Scratch Pad 


This instruction initializes the Scratch Pad Area (SPA) allocated during system 
configuration and adds, replaces, or deletes SPA elements. 


Before issuing SCRPAD, you must create a control parameter list using COPY 
DEFSCP. You must then set the parameter list fields to define the SCRPAD 
operation and identify the existing element and/or the new element value, as 
described under Operand 2. 


Optional module P2A must be included in the system configuration OPTMOD 
macro to use this instruction. 


The SCRPAD instruction has the following format: 


Name Operation Operand 


defld2 
[label] SCRPAD (defrf2 ) 
| reg2 j 
seg2,disp2 


Operand 2 
Is an area containing the parameter list defined by DEFSCP. Segment 
14 cannot be used. Any length specified by this operand is ignored; the 
COPY DEFSCP instruction determines the parameter list length. The 
fields in the parameter list are used to provide information for the various 
SCRPAD functions. When you use register addressing to locate a 
parameter list, the parameter list can be located in a noncurrent segment 
space. However, if the parameter list contains the address (segment, 
displacement) of other storage areas (that is, input/output areas, tables) 
the other storage areas are always in the current segment space. The 
fields set by the application program or returned by SCRPAD are: 


SCPFC: A one-byte field defining the SCRPAD operation. This field must 
always be completed. 


Hex Code Explanation 
01 Initialize the SPA. 
02 Add an element (elements are added sequentially). 
03 Replace an element using either key or number. 
04 Retrieve an element using either key or number. 
O5 Retrieve an element for updating. 
06 Delete an element using either key or number. 
07 Delete all elements. 
08 Exchange an element with a data area. 
23 Add or replace a keyed element. 
25 Retrieve or add a keyed element. 
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SCPTYP: This one-byte field determines whether SCRPAD searches SPA 
elements by key, or by number. ee 


Hex Code Explanation 
00 Access by key. 
01 Access by element number. 


SCPSPID: A one-byte field containing the ID of the SPA. This value is the 
hexadecimal equivalent of any value in the range from 0 to 255. 


SCPELMN: A 2-byte field containing the number of the element. When 
accessing by element number, the application program stores the element 
number in this field. When accessing by key, the SCRPAD instruction places 
the element number of the keyed element in this field. 


SCPKEYL: A 1-byte field containing the length of the key field in the element. 
The key is always part of the element’s data and begins in the first position of 
the element. Using this field, different application programs could use different 
length keys to locate the same element. For example, one program could use 
the first four bytes as a key while another program could use the first six bytes. 


SCPDATPT: A 3-byte field containing the location of a data area for use by 
SCRPAD. The first byte contains the number of the segment; the second and 
third bytes contain the displacement into the segment. For an add or update 
request, SCRPAD copies the contents of this data area into the SPA element. 
For a retrieval:request, the retrieved element’s data (with key) is copied to this 
data area. The length of this data area is implied by the element length for the 
SPA. 


SCPELMLN: A 2-byte field containing the length of an element for initializing 
a SPA. All elements in the SPA are initialized to this element length. This 
field is used only for SPA initialization. 


SCPELMNB: A 2-byte field containing the number of initialized elements in 
the SPA. This field is completed by the SCRPAD instruction after an 
initialization request is processed, and indicates the number of elements in the 
SPA. 
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Condition Codes: SCRPAD sets both the condition code and a return code in 
the SCPRC field of the parameter list. The possible condition codes are: 


Possible 
Hex Code Mnemonic Explanation 
O1 OK SCRPAD executed successfully. 
02 ST Operation was not completed or completed 


conditionally. 


SCPRC: A one-byte field containing a return code indicating the result of the 
SCRPAD operation. 


If the condition code is X‘01’, the possible return codes and their meanings are: 


Hex Code Explanation 
00 SCRPAD executed successfully. If SCPFC was X‘23’ or 
X‘25’, a new element was added. 
Ol Execution was successful, the element was returned at 
the SCPDATPT location. 


If the condition code is X‘02’, the possible return codes and their meanings are: 


Hex Code Explanation 
02 The SPA is full. 
08 Update is pending by another application program to the 


element selected by SCRPAD. This element is 
unavailable until that operation ends. 


10 Your program tried to add a duplicate element. 
20 The specified element was not found in the SPA. 
40 The SPA you selected has not been initialized. 
80 Invalid SPA ID. 


Program Checks (hex): 01, 02, 09, or 11 can be set. 

Programming Notes: 

Initializing the SPA: After a SPA has been defined during configuration, an 

application program issues the SCRPAD instruction (using the DEFSCP 

parameter list) to initialize the SPA to elements of a selected fixed length. The 

DEFSCP parameter list is completed by the program to contain: 

SCPFC X‘O1’ to initialize a SPA. 

SCPSPID The ID of the SPA. 

SCPELMLN The element length to be used for all elements in the SPA. The 
length specified should not include the one-byte flag field 


associated with each SPA element. 


Upon completion, field SCPELMNB contains the number of elements in the 
initialized SPA. Field SCPRC contains the return code. 
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For example, the following code could be used to initialize SPA ID 01 to 
contain 9-byte entries: 


DEFSCPS EQUATE 3 | SCRATCH PAD PARAMETER SEGMENT 
“COPY DEFSCP COPY PARAMETER LIST FIELDS 
. | 
® 
@ 


MVDI SCPFC,SCPINTR SET TO INDICATE INITIALIZE 


MVDI SCPSPID,X'01' SET SPA ID 

MVDIL SCPELMLN,AL1(9) ALLOCATE 9 BYTE ELEMENTS 

SCRPAD SCPSTR EXECUTE SCRATCH PAD INSTRUCTION 
BRAN OK , CONT CHECK IF OK 


*ERROR TESTING 


Flement 
Number 
1 unassigned 


Z unassigned 


25 unassigned 


unused 6 bytes 


Adding SPA Entries: After a SPA is initialized, application programs can begin 
to add new elements. Elements can be added only if element spaces are 
available; elements are always added at the first unassigned element space. If 
no unassigned element spaces remain, the element is added at the first space 
where an element has been deleted. 


You can add elements with or without keys. If keys are used, the key must 
begin in the first byte of the element. When the new element is added, all 
existing elements are searched to ensure that the new element does not contain 
a key already used in the SPA. The new element is added only if the key is not 
a duplicate. If the element is added without key addressing, the search is not 
made. Note that if an element is added by position, but the first characters 
duplicate the key of another element, problems can occur when the SPA 
elements are later searched by key. 


To add an element, complete the DEFSCP parameter list with the following 
information: 


SCPFC X‘02’ indicates the add function. 
SCPSPID The ID of the SPA. . 
SCPTYP Set to X‘00’ to add a keyed element. 


Set to X‘01’ to add a nonkeyed element to be retrieved by 
element number. 
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SCPDATPT Set to the location (segment followed by displacement) of the 
data to be placed in the new element. 


SCPKEYL Set to indicate the length of the key, if the element contains a 
key. This field is used only if field SCPTYP is set to X‘00’ for 
keyed addressing. 


After SCRPAD completes, field SCPELMN contains the element number of the 
added element; the return code in field SCPRC is set to indicate the status of the 
operation. 


For example, to add element 1 to SPAO1 (element 1 will contain the 4-byte key 
*1234’ and the data ‘ELM0O1’), the coding might be: 


DATADR DEFCON AL1 (5), AL2 (0) LOCATION OF THE 
DATA AREA 
BLDDATA DEFCON C‘1234ELM01’ ELEMENT DATA 


MVDI SCPFC,SCPADDR SET FOR AN ADD FUNCTION 
MVDI SCPSPID,X‘01’ SPA ID 

MVDI SCPKEYL,ALI(4) SET KEY LENGTH 

MVDI SCPTYP,SCPKEYM SET FOR KEYED ADDRESSING 
MVDI SCPDATPT,DATADR POINT TO THE ELEMENT DATA 
SCRPAD SCPSTR EXECUTE THE SCRATCH PAD 
BRAN OK,CONT 


ERROR ANALYSIS 
CONT EQUATE - ** CONTINUE PROCESSING 
Element 
Number 
1 1234ELMO1 
2 unassigned 
25 unassigned 


unused 6 bytes 
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Retrieving a SPA Element: Use the SCRPAD instruction with the DEFSCP 
parameter list to retrieve an element from the SPA using either the key or the 
element number. Some elements in the SPA may contain keys, while others do 

not. If a’search is made for retrieving a keyed element, all elements are assumed 
to contain keys. SCRPAD searches the beginning of each element, beginning with 
the first, until a match is found. As shown under “Adding SPA Entries” an 
unkeyed element may contain characters that during retrieval may be mistaken 
for a key. SCRPAD retrieves the first element whose beginning characters match 
the key being sought. 


To retrieve a SPA element, complete these fields in the parameter list: 
SCPFC X‘04’ retrieves a SPA. 
SCPSPID The ID of the SPA. 


SCPTYP Hex 00 to search by key, hex 01 to retrieve a specific element by 
element number. 


SCPDATPT Contains the segment number and displacement of a data area 
where SCRPAD will store the retrieved element. If the search is 
by key, the desired key must be placed in the beginning bytes of 
the data area before SCRPAD is issued. On completion, 
SCRPAD replaces the search key with the retrieved element and 
its data. 


SCPKEYL Set to the number of bytes to be used for the key when an 
element is to be retrieved by key. If this field is set to ‘4’ for 
example, SCRPAD will compare the first 4 bytes of the data area 
to the first 4 bytes of each SPA element. When a match is found, 
the element is retrieved. 


SCPELMN Set to the element number when an element is to be retrieved by 
element number (and not by key). 


When SCRPAD completes, the data area whose location is in SCPDATPT will 
contain the retrieved element. If keyed addressing is used, the element number is 
stored in field SCPELMN. The return code in field SCPRC is set to indicate the 
results of the operation. | 


Exchanging SPA Elements: Use the SCRPAD instruction and the DEFSCP 
parameter list to exchange the contents of a SPA element with the contents of a 
specified data area. To use this function, code the DEFSCP fields as follows: 
SCPFC X‘08’ indicates the exchange function. 
SCPSPID Indicates the ID of the SPA. 


SCPTYP X‘00’ indicates addressing by key; 
X‘01’ indicates addressing by element number. 


SCPDATPT Contains the segment number and displacement of the data area 


containing the data to be exchanged. If keyed addressing is 
indicated, the first bytes of the data should contain the key. 
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SCPKEYL Indicates the number of bytes in the data to be used as the key, 
beginning with the first data byte. 


SCPELMN Indicates the element number when addressing is by element 
number. 


On completion, the contents of the data area and the contents of the SPA element 
are exchanged. If addressing is by key, the element number of the exchanged 
element is returned in SCPELMN. 


Retrieving a SPA Element for Update: Use the SCRPAD instruction and the 
DEFSCP parameter list to retrieve an element, set it in ““update-pending”’ state, 
modify the element, and replace the element in the SPA. The SCRPAD 
instruction is first used, just as described in the previous “Retrieving a SPA 
Element” section, except that the SCPFC field is set to X‘05’. Otherwise, the 
parameter list settings are identical. When SCRPAD is complete, the data area 
contains the retrieved element. If keyed addressing was used for retrieval, the 
element’s number is stored in SCPELMN. The return code is set in field SCPRC. 


The retrieved element is then set in “update-pending”’ state so that no other 
request can alter the element until the update is complete. 


Replacing a SPA Element: The SCRPAD instruction and the DEFSCP parameter 
list are used to replace an element either by keyed address or by element number. 


If the element to be replaced is in the update-pending state (Retrieve for Update 
has been issued), only the station that retrieved the element can update it. 
Otherwise, any station can update the element. 


When the element is retrieved and is in the data area, the application can make 
any desired change. Note that if the beginning characters are changed to duplicate 
an existing element key, errors can occur when later searching the SPA by key 
sequence. 


To use this function, the DEFSCP fields are set as follows: 

SCPFC X‘03’ indicates replacement. 

SCPSPID _ Set to the ID of the SPA. 

SCPTYP X‘00’ indicates that keyed addressing will later be used to 
retrieve this element. The beginning data characters form the 
key; X‘01’ indicates that this element will later be retrieved by 
element number. 

SCPDATPT Contains the segment and displacement of the data area 


containing the element data to store into the SPA. This is the 
replacement data. 


SCPKEYL Contains the number of beginning characters that constitute the 


key. This field is used only for addressing by key (field SCPTYP 
is set to X‘00’). 
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SCPELMN Contains the element number of the element being replaced. This 
field is used only for replacement using the element address 
(SCPTYP set to X‘01’). 


If the element is being replaced by key, the first characters (defined by the key 
length) are used to search through the SPA for a matching key. When a match is 
found, the data in the data area replaces the data in the element. 


For example, suppose the program is to retrieve the element with key ‘3678’, and 
replace the element data portion with the characters ‘CHGO1’. The following 


might be coded: 
DESKFY  DEFCON C‘3678’ DESIRED KEY FOR 
7 RETRIEVE FUNCTION 
NEWDATA DEFCON C‘CHGO1’ NEW DATA 
KEYAREA DEFLD 5,04 © © ~ KEY AREA IN DATA AREA 


DATAFLD DEFLD  5,,5 : DATA FIELD AREA 
MVDI SCPFC,SCPRTUR SET FOR RETRIEVE 

| FOR UPDATE 
MVDI _—_ SCPSPID,X‘01’ SPA ID 
MVDI SCPTYP,SCPKEYM SET FOR KEY ADDRESSING 
MVDI SCPKEYL,AL1(4) | SET KEY LENGTH 
MVFXD KEYAREA,DESKFY SET DESIRED ELEMENT KEY 
MVEFXD SCPDATPT,DATADR POINT TO KEY AND DATA AREA 


LOOP SCRPAD SCPSTR EXECUTE THE SCRPAD 
| ) | - | INSTRUCTION 
BRAN  OK,UPDATE IF RETRIEVED GO UPDATE 
LIFOFF SCPRC,SCPRCO8, CHECK IF IN UPDATE STATE 
ERROR 
PAUSE WAIT 
JUMP LOOP - TRY AGAIN 
ERROR EQUATE i 


ERROR ANALYSIS 
UPDATE EQUATE * 
MVDI. SCPFC,SCPRPLR SET FOR REPLACE FUNCTION 
MVFXD DATAFLD,NEWDATA SET NEW DATA 
MVDI SCPTYP,SCPELMA SET TO ELEMENT NUMBER 


ADDRESSING 
SCRPAD SCPSTR _ EXECUTE UPDATE 
BRAN OK,CONT ~~ CHECK IF SUCCESSFUL 
ERROR ANALYSIS 
CONT EQUATE * 
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Element 


Number 
1 1234ELMO01 
23 3678CHGO1 Replaced element 
24 1289ELM24 
25 unassigned 


unused 6 bytes 


Add.or Retrieve for Update: The SCRPAD instruction with the DEFSCP 
parameter list can be used to add a new element by key only if an element with 
that key does not already exist in the SPA. If the duplicate keyed element exists, it 
is retrieved. This function works only for keyed elements. Set the fields in the 
DEFSCP list as follows: 


SCPFC X‘25’ indicates add/retrieve. 

SCPSPID Set to the SPA ID. 

SCPTYP X‘00’, only keyed request allowed. 

SCPDATPT Contains the segment number and displacement of a data area 
containing the element to be added. The beginning characters in 


the data area are used as a key. 


If the element already exists, it is retrieved and placed in this data 
area. 


SCPKEYL Contains the number of element bytes that constitute the key. 
When this operation completes, either: 


1. The new element in the data area is added to the first available element space 
of the SPA; the return code is set to X‘00’; field SCPELMN contains the 
element number of the added element. 


2. The element exists in the SPA, and is copied to the data area; the return code 
is set to X‘0O1’; field SCPELMN contains the element number of the retrieved 
element. 


If an error occurs, field SCPRC contains a return code to indicate the status of the 
operation. 


Add or Replace SPA Element: Use the SCRPAD instruction with the COPY 
DEFSCP parameter list to add or replace a keyed element in the SPA. The 
DEFSCP parameter list specifies the type of SCRPAD operation, the SPA ID, the. 
address of the new or replacement SPA element, the element key, and its length. 
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_. If SCRPAD finds an element with the same key as that in the SCPDATPT data 
area, the data area contents replace the old SPA element. If none of the SPA 
elements have the data area key, SCRPAD adds the new element to the SPA. 
SCRPAD sets a return code, indicating the action taken, in the SCPRC field of 

_ the parameter list. Set the COPY DEFSCP parameter list fields as follows: 


SCPFC X23’ indicates add or replace an element. 
SCPSPID _ Set to the SPA ID. 
SCPTYP X‘00’ only keyed elements can be added or replaced. 


SCPDATPT Specifies the segment and displacement of the new or 
replacement element.. The beginning characters contain the key, 
as defined by the SCPKEYL field. 


SCPKEYL Defines the number of beginning SCPDATPT characters 
containing an element key. 


Note: If the element to be replaced is in update-pending state, 
only the station that originally retrieved the element can replace 
it. 


Delete a SPA Element: The SCRPAD instruction and the DEFSCP parameter 
list are used to delete an element from the SPA. The element is located either 
by element number or by key. The element is then removed from the SPA and 
its space is made available. Note that elements in “update-pending” state 
cannot be deleted. To delete an element, the following fields in DEFSCP are 
completed: | 


SCPFC X‘06’ indicates deletion. 
SCPSPID Set the SPA ID. 


SCPTYP ‘00’ indicates key addressing: . 
- X‘01? indicates an element number will be used. 
SCPDATPT Contains the segment number and displacement of a data area 


containing the key of an element to be deleted. This field is used 
only for keyed addressing. 


SCPKEYL Contains the number of bytes in the data area to be used for the 
key. 


SCPELMN Set to contain the element number of an element to be deleted. 
This field is used only if the element is located by element 


number. 


On completion, SCRPAD sets a return code in SCPRC to indicate the status of 
the operation. 
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For example, if SPA 01 contains 25 elements, and element 1 is to be deleted, the 
code might look like this: 


MVDI SCPFC,SCPDLER SET FOR DELETE FUNCTION 

MVDI SCPTYP,SCPELMA SET FOR ELEMENT NUMBER 
ADDRESSING 

MVDI SCPSPID,X‘01’ SET SPAID 

MVDI SCPELMN,AL1(1) SET ELEMENT NUMBER 


SCRPAD SCPSTR EXECUTE SCRATCH PAD INSTRUCTION 
BRAN OK,CONT CHECK IF SUCCESSFUL 
ERROR ANALYSIS 


CONT EQUATE * 


Element 

Number 
1 available 
2 1268ELMO02 
24 3678ELM24 
25 1289ELM25 


unused 6 bytes 


Deleting all Elements: The SCRPAD instruction and the DEFSCP parameter list 

are used to delete all elements in the SPA. Even elements in “update-pending”’ 

state are deleted. Set field SCPFC to X‘07’, and issue SCRPAD. The return code 
in field SCPRC indicates the status of the operation. 
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The SECTION instruction is used to control the active application control section. 


SECTION--Section Control 


Name Operation Operand 
DUMMY 
END 
[label] SECTION INSTR 
CONST 
AUTO 
DUMMY 


Specifies that following instructions are to be placed in a DSECT. 


END 
Specifies the end of the DSECT. 


INSTR/CONST/AUTO 
These operands are for 3600 compatibility of split application programs. If 
your program is ‘split’, see Appendix F. 


Programming Notes 


« Ifa BEGIN, OVLYSEC, or SEGCODE occurs after a SECTION DUMMY 
statement and before a SECTION END statement, no CSECTs or 
ADDMEM commands will be generated. See the Host Support User’s Guide 
for further information. 


¢ Each subsequent SECTION specification ends the previous specification 
except for the dummy section, which is ended only by a SECTION END 
statement. 

« SECTION DUMMY indicates the start of a dummy section (DSECT). The 
dummy section is used to maintain addressability for the instructions being 
assembled. Instructions and constants in a dummy section will not be 
included in the object module. SECTION AUTO, CONST, and INSTR 
instructions that appear within a dummy section will be ignored. 

e SECTION END indicates the end of a dummy section. 

For example, the following might be done: 

Assembly A: 

APOPT RELOC=Y 

ROOT2 BEGIN 


ADEF DEFCON 1 
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BDEF DEFCON | _ 3; .-. : | 


FINISH | 
Assembly B: 
APOPT  RELOC=Y 


SECTC SEGCODE 


SECTION DUMMY 
BEGIN 
ADEF DEFCON” | | 2 


BDEF DEFCON 2 
SECTION END 
LDLFD ~~ R3,ADEF 


ENDSEG 


Notes: 
1. In assembly A, constants would be generated for the DEFCONS. 


2. In assembly B, constants would not be generated but the SECTION DUMMY 
would allow the assembler to resolve the reference to ADEF. 


We recommend that you define a library member that consists of the constant 
definitions contained in the root section. This library member should include the 
BEGIN statement and may include EQUATE and DEFLD instructions. When 
assembling the root section, you should code a COPY statement as the first 
instruction to copy the library member into the source code. When assembling an 
application section separate from the root section, you should code a SECTION 
DUMMY statement followed by a COPY statement to copy the root constants 
into the source code and then close the dummy section by coding a SECTION 
END statement. You should follow the dummy section with the application code. 
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SEGALLOC 


The SEGALLOC allows you to dynamically allocate segments from a pool 
defined during configuration using the TRANPL macro or from the general 
storage pool. Dynamic allocation provides more efficient use of controller storage 
by allowing run-time management of segment storage. The application issuing the 
SEGALLOC may request that control not be returned to it until sufficient space 
is available to satisfy the request. The 4700 places the station in a wait state until 
the space becomes available. At that time, the request is honored and the station 
is taken out of the wait state. After it is obtained, the segment space remains 
allocated until the program that originally allocated it (via SEGALLOC), releases 
it - explicitly via SEGFREE or implicitly via APRETURN. 


SEGALLOC--Segment Allocate 


Your program addresses a dynamically-allocated segment the same as it addresses 
any other segment. 


Only segments 2-12 may be allocated or freed dynamically and there is no sharing 
of segments between stations. 


You can request up to 64 simultaneous allocations for a work station. 


Name Operation Operand 


defld2 

[label] SEGALLOC (defrf2 ) [ ,WAIT={Y|N} ] 
(reg2 ) 
seg2,disp2 


operand 2 
Is a field containing the parameter list. The format of this parameter list is: 


Byte 0 = one-byte function code - hex 01 = allocate storage 


Byte 1 one-byte segment number 


bits 0-3 = zeros 
bits 4-7 = segment number 


Bytes 2-3 = two-byte length ranging from 1 to 65 535 


Byte 4 = one-byte segment-class pool ID from which the segment is 
to be allocated 


WAIT 
Y means that the station will be placed in the wait state if the storage is not 
available. WAIT=N means that a condition code will be set and operation 
will continue with the next sequential instruction. 
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Condition Codes: One of the following is set. 


Possible 
Hex Code Mnemonic Explanation 
01 OK Successful execution. 
04 No storage available. 


Program Checks (hex): 01, 02, 09, 11, 24, or 25 can be set. 


Hex Code Explanation 

O01 The specified parameter list is in an undefined segment 
or the parameter list specifies an in-use segment number. 

02 The parameter list length extends beyond the segment. 
09 Invalid operation code. 
11 The parameter list specifies an invalid segment number. 
pe, No room in the segment header area. 
29 Size requested in parameter list is larger than the largest 


pool area defined. 
Programming Notes: The program that issues the SEGALLOC instruction and the 


WAIT=Y operand places the work station for which it is operating, in the wait 
state until an area becomes available. 
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‘SEGCODE 


The section following the SEGCODE instruction is to be added to a root or 
overlay section. SEGCODE provides for separately assembled sections that will 
be connected by the Host Support link-editing function. For a section that is not 
a root or overlay, the first instruction must be SEGCODE. 


SEGCODE--Application Program Section Identifier 


The SEGCODE generates an ADDMEM card and a CSECT with the name 
specified in SEGCODE. 


Name Operation Operand 


[label] SEGCODE NAME=name | , VERS ION= ee a | 
1 


[, LNSNAMF=name ] 


name 
Is a 1 to 8 character name identifying the section. 


version 
Is the version number (1 to 255) of the section to be stored. 


INSNAME 
Applies to split application programs. See Appendix F. 
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| SEGCOPY 
SEGCOPY--Segment Copy 


SEGCOPY copies the contents of a field in one segment into a field in a segment 
associated with the same or a different logical work station. The copy can be 
either to or from a field in storage belonging to the station currently in control. 
The beginning of the field that is to contain the copy is indicated by the primary 
field pointer. ASEGCOPY operation cannot be done to or from station 1 (the 
System Monitor). 


SEGCOPY uses a 6-byte parameter list to refer to the other station and field 
involved in the data transfer. 


The SEGCOPY parameter list defines the second segment and field that either 
receives or is a source of data transferred by SEGCOPY. If SEGCOPY specifies 
TO, this field is copied into the operand I segment field. If FROM is specified, 
the second segment field defined by the parameter list receives a copy of the 
segl. 


Byte 0 = Station ID 
Is the binary station ID of the station that owns the second segment 
involved in the data transfer. 


Byte 1 = Segment/Section Indicator | 
Is a character that further identifies the second segment involved in the 
data transfer. This field is ignored unless the second segment number is 0 
or 14. 


If the second segment number is 0, this field can be specified as a character 
A or B, to identify which Segment 0 of a shared station is being referenced. 
Unless a value of B is specified, A is assumed. 


Byte 2 = Segment Space ID and Number 
Bits O - 3 contain the segment space ID, Bits 4 - 7 contain the segment 
number. 


Segment space IDs can range from I to 15. A value of 0 indicates the 
current segment space ID of the station specified in the first byte of the 
parameter list. 


If field 2 is to receive a copy of field 1 (the FROM operand is specified), 
the segment number cannot be 14. 


Note: If Segment 0 and B is specified in the parameter list and no Segment 
0 or B exists, a condition code of hex 04 is set, and no copying is done. 


Bits 4-7 are the binary segment number of field 2. If field 2 is to receive a 
copy of field 1 (the FROM operand is specified), the segment number 


cannot be 14. 


Byte 3 = Length 
Is the binary length of field 2. 
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_ Bytes 4 and 5 = Displacement ae So 
Is a 2-byte binary number ecaane tiie cation of field within the 
specified segment. | | 


Name Operation Operand 


defcon2 
defld2 

[label] SEGCOPY seg1, \ (defrf2) ; { TO | 
(reg2 ) FROM 
seg2,disp2 


operand I : 

Is a field in the specified ooineab mesure with the station currently in 
control, that contains field 1. If field 1 is to receive a copy of field 2 (TO is 
specified). Field 1 must not be in Segment 14. 


operand 2 
Is a field containing the parameter list. The length associated with this 
operand is ignored, and the first 6 bytes are assumed to be the parameter 
list. 


When you use register addressing to locate a parameter list, the parameter 
list can be located in a noncurrent segment space. However, if the 
parameter list contains the address (segment,displacement) of other storage 
areas (that is, input/output areas, tables), the other storage areas are 
always in the current segment space. 


TO 
Indicates that data is copied from field 2 to operand 1. 


FROM 
Indicates that data is copied from operand 1 to field 2. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

O01 OK The data was copied successfully. 

02 ID An invalid station ID was specified. 

04 Is An invalid segment number or segment space ID 
was specified in the parameter list; or Segment 0 
and B were specified in the parameter list, but no 
Segment 0 for operator B exists (this condition 
causes an error to occur). 

08 OV There was insufficient room in operand 1 or 


field 2. 


Program Checks (hex): 01, 02, or 27 can be set. Program check 02 is set if the 
parameter list used by SEGCOPY starts less than 6 bytes from the end of the 
operand 2 segment. 
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Programming Notes: The following shows how to transfer data from the processing 
station to station 2. Note that SEGCOPY does not cause the other station to gain 
control, but merely transfers data. 


STALOC DEFCON X‘02C 100400060’ 1 
TRANSMIT SETFPL 0,96,64 2 
SEGCOPY 0,STALOC,FROM 3 
BRAN X‘OR’, ERRMSG3 4 


1 Defines the parameter list referred to by SEGCOPY. The list specifies station 
2, operator A, Segment 0 of the current segment space id, a length of 64 bytes 
(X‘40’) and a displacement into Segment 0 of 96 bytes (X‘0060’), 
immediately following the registers. 

2 Sets the PFP of Segment 0 to 96. 

3 Transfers 64 bytes of data from this Segment 0 to the Segment 0 associated 
with station 2, operator A. 

4 Branches to an error routine if the transfer is unsuccessful. 
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SEGFREE 
| SEGFREE--Segment Free 


SEGFREE returns segment space allocated using the SEGALLOC instruction to 
a storage pool. 


Your program can free Segments 2 through 12. You can also free segment space 
by performing an APRETURN. 


This instruction requires the TRANPL macro in your system configuration. 


Name Operation Operand 


defld2 
[label] SEGFREE (defrf2 ) 
(reg2 ) 
seg2,disp2 
operand 2 
Is a field containing a two-byte parameter list. The format of the parameter 
list is: 
byte 0 = function code - hex 01 = release storage 
bytel=  one-byte segment number 


bits 0-3 = zeros 
bits 4-7 = segment number 


Condition Codes: One of the following is set: 


Hex Code Explanation 


O1 | Successful operation. 

02 Segment not defined by SEGALLOC or 
invalid segment for this segment space ID or 
invalid segment space ID. 


Program Checks (hex): 01, 02, or 11 can be set. 


Programming Notes: Segments allocated in a segment space may be freed in that 
space only. For example, program A allocates a segment using SEGALLOC and 
calls (APCALL) program B. Program B cannot free the segment allocated by 
program A. The segment allocated by program A is automatically freed if 
program A issues an APRETURN. 
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SELECT allows the controller application program to select which Segment 0 is to 
be associated with the shared logical work station currently in control. Before the 
instruction is executed, the character A or B must be stored in SMSABK. 


SELECT--Select Segment 0 


Name Operation Operand 


[label] SELECT 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
O1 Segment O is unchanged. 
02 Segment 0 is changed. 
04. IO A or B was not specified; A has been set by 
default. 
08 NO Segment (0) (B) does not exist; Segment 0 (A) 


remains in control. 
Program Checks: None are set. 


Programming Notes: The following is an example of the use of the SELECT 


instruction. 

TRANSO DEFCON C‘A’ 1 
ADDO DEFCON C‘B’ 2 
SEGSEL MVFXD SMSABK,ADDO 3 
SELECT 4 
5 
MVFXD SMSABK,TRANSO 6 

SELECT 


1 Defines the character that indicates which Segment 0 is used for normal 
transaction processing. 

2 Defines the character that indicates which Segment 0 is used for the 

adding-machine function. 

Moves the select character (B) to Segment 1. 

Selects the “B” Segment 0. 

Performs the adding-machine functions. 

Selects the Segment 0 used for normal processing before exiting. 


NAN mn & 
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This instruction propagates a byte of data (operand 2) through the field defined in 
operand 1. 


SETFLDI--Set Field Immediate 


Name Operation Operand 


defldt1 

[label] SETFLDI (defrf 1) , immdata2 
(reg!) 
seg1,disp1,lent 


operand I 
Is a field through which the operand 2 data is propagated. The field must 
not be in Segment 14. The length of operand 1 can be 0 through 65 534 
bytes. 


operand 2 
Is a one-byte value. This byte of data is propagated through the field 
defined by operand 1. 


Condition Codes: The code is not changed by this instruction. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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| SETFPL 


SETFPL--Set Primary Field Pointer and Field Length Indicator 


SETFPL modifies the primary field pointer (PFP) and the field length indicator 
(FLI) of the segment referred to in the instruction. The PFP can be modified 
arithmetically or logically: 


Arithmetic: The PFP can be set to an absolute location within the segment, or to a 
positive or negative displacement from its current position. 


Logical: The PFP can be altered based on delimiter characters that appear within 
the data in the segment. 


The second operand of the SETFPL instruction is used to set the PFP; the third 
operand is used to set the FLI. At least one of these operands must be specified in 
the SETFPL instruction. 


Any change to the PFP sets the FLI to the difference between the new position of 
the PFP and the position of the next delimiter found in a scan toward the end of 
the segment (this includes cases where the FLI operand is not specified) or the 
difference between the new position of the PFP and the end of the segment if no 
delimiters are found. If both the PFP and FLI operands are specified, and the 
FLI operand is a signed number, the FLI is further modified as indicated by the 
operand; if the FLI operand is an absolute number, the FLI is set to that value. 


Delimiters are defined using the DEFDEL instruction. Depending on the 
specification of the DEL operand of the BEGIN instruction, there may be one or 
multiple delimiter tables being used. 


If [+ ]n, (reg1), or S(reg1) is specified for the second operand and the third 
operand is not specified, +0 is used as the third operand; thus, when the PFP is 
modified, an inverse modification is performed on the FLI. The FLI is changed 
only in relation to the new value of the PFP and is not modified further. Similarly, 
if the third operand is specified but the second is not, +0 is used for the second 
operand; thus, there is no change to the PFP. If [+] F or L is coded for the second 
operand and no third operand is specified, no value is assumed for the third 
operand, and a 2-byte machine instruction is generated. If [+] n is coded, a 
6-byte machine instruction is generated when +n is greater than +127, -n is less 
than -128, or nis greater than 255. 


Name Operation Operand 


defld 
seg, le 
[label] SETFPL seg, [+] F [+]n 
L j (reg2)) 
S( reg2 ) 
[+]n [t]n 
| (reg1) yj (reg2) 
seg, S( reg! ) ; S(reg2 ) 
+0 +0 
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defid 
Is the label of the DEFLD or DEFCON instruction whose definition 
(segment, location, and length) is to be used as the new values for the PFP 
and FLI. 


Note: The label of a relocatable DEFCON should not be used. 


seg | —— 
Is the number of the segment to be modified. 


To change the PFP (second operand): 


Indicates that the PFP is to be modified using delimiters within the data in 
the segment: 


-F 
The PFP is set to the first byte to the right of the second delimiter 
encountered in scanning toward the beginning of the segment (that 
is, at the start of the preceding field). If the PFP currently points to 
the first field in the segment, the PFP is set to the beginning of the 
current field or the beginning of the segment. Unless an FLI value is 
specified, the FLI is set to the length of the new field. 


+F 
The PFP is set to the first byte to the right of the next delimiter 
encountered in scanning toward the end of the segment. If the PFP 
currently points to the last field in the segment, the PFP is set to the 
last byte of that segment. Unless an FLI value is specified, the FLI is 
set to the length of the new field. 


The PFP is set to the first byte to the right of the first delimiter 
encountered in scanning toward the beginning of the segment (that 
is, at the start of the field it currently points to). Unless an FLI value 
is specified, the FLI is set to the length of the current field. 


The PFP is increased (that is, moved toward the end of the segment) by an 
amount equal to the length indicated by the current FLI. Unless an FLI 
value is specified, the FLI is set to the difference between the new PFP 
value and the location of the next delimiter encountered in scanning toward 
the end of the segment. 


5-356 47 00 Controller Programming Library, Volume 1: General Controller Programming 


(reg!) 


Is a signed or absolute number that indicates the movement or new location 
of the PFP and a change to the FLI (if the FLI operand is also a signed or 
absolute number, however, that operand further changes the FLI; refer to 
the descriptions of the third operand): 


“ni 


Is a negative decimal number (from -0 to -32 768) that specifies the 


- number of bytes the PFP is to be decreased (PFP movement n 


characters toward the beginning of the segment). The FLI is 
increased by the same value. 


Is a positive decimal number (from +0 to +32 767) that specifies the 
number of bytes the PFP is to be increased (PFP movement n 
characters toward the end of the segment). The FLI is decreased by 
the same value. 


Is an absolute decimal number (from 0 to 65 535) that specifies a 
new value (absolute displacement) for the PFP. The FLI is set to the 
difference between the new value of the PFP and the position of the 
first delimiter encountered in a scan toward the end of the segment. 
If n is O, the PFP points to the first byte of the segment, and the FLI 
is set to the length of the first field in the segment. 


Is the number of a register (0 to 15), in parentheses, that contains a binary 
value for setting the PFP. The value must be in the rightmost 2 bytes of the 
register and may range from 0 to 65 535. 


S(reg1) 
Is the number of the register (0 to 15), preceded by an S and in 
parentheses, that contains.a signed binary value to be algebraically added to 
the PFP. The value must be in the rightmost 2 bytes. If the leftmost bit of 
this value is 0, the value is positive and between 0 and 32 767; if the 
leftmost bit is 1, the value is negative and between 0 and 32 768. 
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To change the FLI (third operand): 


Is a signed or absolute number for modifying the FLI: 


-n 
Is a negative decimal number from -1 to -32 768 that is used to 
decrease the FLI. 

+n 
Is a positive decimal number from +0 to +32 767 that is used to 
increase the FLI. 

n 


Is a decimal number from 0 to 65 535 that replaces the value of the 
FLI. 


(reg2) 
Is the number of a register (0 to 15), in parentheses, that contains a binary 
value for setting the FLI. The value must be in the rightmost 2 bytes of the 
register and may range from 0 to 65 535. 


S(reg2) 
Is the number of the register (0 to 15), preceded by an S and in 
parentheses, that contains a signed binary value to be algebraically added to 
the FLI. The value must be in the rightmost 2 bytes. If the leftmost bit of 
the value is 0, the value is positive and between 0 and 32 767; if the 
leftmost bit is 1, the value is negative and between 0 and 32 768. 


Notes: 


1. The PFP and FLI never become negative. If the specified value would 
cause the PFP to become negative, the PFP is set to 0. If the specified 
value would cause the FLI to become negative, program check 3 
occurs. 


2. Program check OD is set if a SETFPL instruction requiring a delimiter 
table is issued, and no delimiter table has been defined for the 
controller application program. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 03, or OD may be set. 
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4-Byte Instruction 


SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 
SETFPL 


n = numeric value in binary for Field Pointer 

R = register number in binary for Field Length 

N = numeric value in binary for Field Length 

< = scan backwards to the first delimiter encounteredt 


| Operation = Generated Machine Instruction 
OP Code | Byte 2 Byte 3 Byte 4 

FL Hex Binary Binary Binary 
seg,F 
seg, +F 
seg,-F 
seg,L 
seg,F,N 
seg,F,+N 
seg,+F,N 
seg, +F,+N 
seg,-F,N 
seg,-F,+N 
seg,L,+N 
seg,n,+N 
seg,L,N. 
seg,n,N 
seg,tn,N 
seg,+n,+N 
seg,F, (reg) 
seg,F ,S(reg) 
seg,+F, (reg) 
seg,+F,S(reg) 
seg,-F, (reg) 
seg,-F,S(reg) 
seg,L,S(reg) 
seg.n,S(reg) 
seg,L, (reg) 
seg,n,(reg) 
seg,tn, (reg) 
seg,+n,S (reg) 
seg,(reg),+N 
seg, (reg),N 
seg,S(reg),N 
seg,S(reg),+N 
seg, (reg),S(reg) 
seg,(reg),(reg) 
seg,S(reg) ,(reg) 
seg,S(reg),S(reg) 


(R) 
-(r)+(R) 


$ = segment number in binary 
u = unused bit 
r = register number in binary for Field Pointer 


= for FP, scan forwards to the first delimiter encounteredt 


> = for FLI, the number of consecutive nondelimiter characters beginning with the character located 
by the FP and scanning forward 


= scan backwards to the second delimiter encounteredt 
+(r), -(r), +(R) = specified register contains a signed binary number ranging between +32,767 and -32,768 
(r), (R) = specified register contains an absolute number ranging between 0 and 65,535 


t If the scan results in the start or end of the segment, +1 is not added to the field pointer. 


Figure 5-3 (Part 1 of 2). Set Field Pointer Instructions Summary 
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6-Byte Instruction 


Generated Machine Instruction 


OP | 
Code Byte 2 Byte 3 Byte 4 Byte 5 Byte 6 
Hex Binary Binary Binary Binary Binary 
SETFPL seg,F,N 5F SSSs 0000 uuuU 0000 
SETFPL seg,F ,+N 5F SSS$ 0001 uuuU 0000 
SETFPL _seg,+F,N 5F SSSs 0000 uuuu 0001 
SETFPL seg,+F ,+N 5F SSSS 0001 uuuuU 0001 
SETFPL seg,-F ,N SSSss 0000 uuuU 0010 
SETFPL seg,-F,+N SSSS 0001 uUuUU 0010 
SETFPL seg,L,N SSSs 0000 uuuu 0100 
SETFPL seg,L,+N SSss 0001 uuuU 
SETFPL seg ,n,N SSSS 1000 nnnn 
SETFPL seg,n,+N SSSS 1001 nnnn 
SETFPL seg ,n,(reg) SSSS 1010 nnnn 
SETFPL seg ,n,S(reg) SSSs 1011 nnnn 
SETFPL seg,tn,N ssss 1100 +nnn 
SETFPL seg,tn,+N SSSS 1101 +nnn 
SETFPL seg, +n, (reg) SSSS 1110 +nnn 
~ SETFPL seg +n ,S(reg) SSSS 1111 +nnn nnnn 
SETFPL __seg,(reg),N ssss 0000 uuuu ~—S 1000 
SETFPL seg (reg) +N SSSS 0001 uuuU 
SETFPL seg,S(reg),N SSSs 0100 uuuu 1000 


uuUuU 


SETFPL seg,S(reg) +N 0101 


Ss = segment number in binary 
u = unused bit 
r = register number in binary for Field Pointer 


n = numeric value in binary for Field Pointer 
R = register number in binary for Field Length 
N = numeric value in binary for Field Length 
<= scan backwards to the first delimiter encounteredt 
> = for FP, scan forwards to the first delimiter encounteredt 
> = for FLI, the number of consecutive nondelimiter characters beginning with the character located 
by the FP and scanning forward 
<< = scan backwards to the second delimiter encounteredt 
+(r), -(r), +(R) = specified register contains a signed binary number ranging between +32,767 and -32,768 
(r), (R) = specified register contains an absolute number ranging between 0 and 65,535 


+ If the scan results in the start or end of the segment, +1 is not added to the field pointer. 


| SETSFP 


SETSFP--Set Secondary Field Pointer 


SETSFP modifies the secondary field pointer (SFP). If seg is specified and the 
second operand is not, the SFP is set to the value of the primary field pointer 
(PFP). 


The SFP can be modified arithmetically or logically: 


Arithmetic: The SFP can be set to an absolute location within a segment, or toa 
positive or negative displacement from its current position. 


Logical: The SFP can be altered based on delimiter characters that appear 
within the data in the segment. 


Delimiters are defined using the DEFDEL instruction. Depending on the 


specification of the DEL operand of the BEGIN instruction, there may be one 
or multiple delimiter tables being used. 


Name Operation Operand 


defcon 
defld 
[t]n 
(reg1) 
[label] SETSFP seg F S( reg ) 
fa. 
L 


defld 
Is the label of a DEFLD or DEFCON whose definition (segment and 
location) is to be used for setting the SFP. The displacement of the 
DEFLD or DEFCON specified must not be greater than 255. The label 
of a relocatable DEFCON should not be used. 


seg 
Is the number of the segment whose SFP is to be changed. 
[+]n 
Is a signed or absolute number that indicates the new location of the 
SFP. 
-n 


Is a negative decimal number (from -0 to -128) that specifies the 
number of bytes the SFP is to be decreased. 


Is a positive decimal number (from +0 to +127) that specifies the 
number of bytes the SFP is to be increased. 


Is an absolute decimal number (from 0 to 255) that specifies a new 
value for the SFP. 
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- (regi) | 

| _ Is the number of the register (0 to 15), in parentheses, that contains a 
binary value for setting the SFP. The value must be in the rightmost 2 
bytes of the register and may range from 0 to 65 535. 


S(reg1) 
Is the number of a register (0 to 15), preceded by an S and in 
parentheses, that contains a signed binary value to be algebraically added 
to the SFP. The value must be in the rightmost 2 bytes of the register. If 
the leftmost bit of the value is 0, the value is positive and between 0 and 
32 767; if the leftmost bit is 1, the value is negative and between 0 and 
32 768. 


The SFP is modified using delimiters within the data in the segment; 


+F 
The SFP is set to the first byte after the next delimiter encountered 
in scanning toward the end of the segment. If the SFP currently 
points to the last field in the segment, the SFP is set to the last 
byte of that segment. 


-F 
The SFP is set to the first byte to the right of the second delimiter 
encountered in scanning toward the beginning of the segment 
(that is, at the start of the preceding field). If the SFP currently 
points to the first field in the segment, the SFP is set to the 
beginning of the current field or the beginning of the segment. 


The SFP is set to the first byte after the first delimiter encountered 
in scanning toward the beginning of the segment (that is, at the 
start of the field it currently points to). 


The SFP is increased by an amount equal to the length indicated by the 
current field-length indicator. 


Note: The SFP never becomes negative; if the specified value would 
create a negative number, the SFP is set to zero. 


Condition Codes: The code is not changed. 
Program Checks (hex): 01, 02, or OD may be set. 
Note: Program check OD is set if a SETSFP instruction requiring a delimiter 


table is issued, and no delimiter table has been defined for the controller 
application program. 
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Programming Notes: The following example shows how the SFP can be set for a 
DEFLD/DEFCON with a displacement greater than 255: 


Fl DEFLD 4.256,1 1 
F1D EQUATE (D:F1) 2 
LDDI R5,FID } 3 
LDRA R5,Fl } 3 
SETSFP S4,(R5) 4 


Defines the field to be used when setting the SFP. 

Assigns a label to the displacement of F1. 

The F1 displacement can be set in the rightmost 2 bytes of register 5 by 
using either instruction. 

4 Sets the SFP to 256. 


QW We = 
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4-Byte Instruction 


Format — Generated Machine Instruction 
OP Code Byte 2. Byte 3 Byte 4 
Binary ena Binary 


SETSFP — seg,F 
SETSFP — seg,+F 
SETSFP © seg,-F 
SETSFP  seg,L 
SETSFP — seg,n 
SETSFP — seg,+n 
SETSFP _ seg,(reg) 
SETSFP _ seg,S(reg) 
SETSFP seg 


n = numeric value in binary for Field Pointer $ = segment number in binary 
R = register number in binary for Field Length u = unused bit 
N = numeric value in binary for Field Length r = register number in binary for Field Pointer 


<= scan backwards to the first delimiter encounteredt 
> = for FP, scan forwards to the first delimiter encounteredt 
> = for FLI, the number of consecutive nondelimiter characters beginning with the character located 
by the FP and scanning forward 
<< = scan backwards to the second delimiter encounteredt 
+(r), -(r), +(R) = specified register contains a signed binary number ranging between +32,767 and -32,768 
(r), (R) = specified register contains an absolute number ranging between 0 and 65,535 — 


t If the scan results in the start or end of the segment, +1 is not added to the field pointer. 


Figure 5-4. Set Field Pointer Instructions Summary 
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SHIFTL--Shift-Left Data in a Register 


SHIFTL shifts the contents of a register a specified number of bit positions to 
the left. Data that is moved past the leftmost position of the register is lost. 
Zeros are shifted into the rightmost position of the register as the operation 
takes place. 


Name Operation Operand 


[label] SHIFTL reg1,count 


operand 1 
Is a register whose contents are to be shifted. 


count 
Is the decimal number of bit positions (1-16) the contents are to be 
shifted. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 NL No significant bits were lost. 
08 BL Significant (one) bits were lost. 


Program Checks (hex): None are set. 
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SHIFTR shifts the contents of a register a specified number of bit positions to 
the right. Data that is moved past the rightmost position of the register is lost. 
Zeros are shifted into the leftmost position of the register as the operation takes 
place. 


SHIFTR--Shift-Right Data in a Register 


Name Operation Operand 


[label] SHIFTR reg1,count 


operand 1 
Is a register whose contents are to be shifted. 


count 
Is the decimal number of bit positions (1-16) the contents are to be 
shifted. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 NL No significant bits were lost. 
08 BL Significant (one) bits were lost. 


Program Checks: None are set. 
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Use this instruction to begin a section in your application program that 
initializes segments by work station ID. The values this section defines apply 
only when this program operates as the initial application for the work station, 
but not for any programs called by this program. The initialization section must 
follow the FINISH instruction and contain only INITSEG instructions, but can 
contain as many as you require. The values specified in the INITSEG 
instructions replace any values specified for the same fields during 
configuration (CPGEN) by a SEGINIT macro. 


SINIT--Start Initialization Section 


The format of the SINIT instruction is: 


Name Operation Operand 


label SINIT 


Note: The SINIT instruction has no operands but its label is required. 
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| STATS--Obtain or Reset Extended Statistical Counters 


The STATS instruction provides access to the information maintained in the 
extended statistical counters that were defined during the configuration process 
by the EXTCTR macro. It also provides access to the basic statistical counters 
for a specified device. STATS performs the following functions according to 
the request code: 


Request Code 01 Return data associated with the specified extended 
statistical counters for ESCID (X‘01’). For the specified 
extended statistical counter [ID (ESCID), return the first 
device ID, the total number of bytes transmitted, the 
number of data bytes in error, and the number of 
devices assigned to the ESCID. You can set optional 
flags in the parameter list requesting that the counter 
also be reset (RESET flag), or that the counter to be 
returned is the next one in the table (NEXT flag). 


Request Code 02 Return the physical device address associated with the 
specified extended statistical counter. For the specified 
ESCID, return the first device ID. You can use the 
NEXT flag to obtain each of the additional DEVIDs in 


turn. 
Request Code 03 Reset all extended statistical counters. 
Request Code 04 Return the extended statistical counter ID for the 


specified physical device address. 


Request Code 05 Return basic statistical counters for the physical device 
address specified. You can set optional flags in the 
parameter list requesting that the counter also be reset 
(RESET flag), or that the counter to be returned is the 
next one in the table (NEXT flag). 


Request Code 06 Reset all basic statistical counters. 


The STATS instruction points to a parameter list (see the DEFESP copy file in 
Appendix B) that contains a request code. The request code defines the 
function to be performed and any parameters required for that request. The 
beginning of the parameter list is defined by operand 2. The length of the 
parameter list is implied by the request code. Generally, if operand 2 refers to a 
segment that has insufficient space, a program check occurs when the 
instruction is performed. For a request code of X‘05’ (return statistical 
counters for the specified physical device address), a program check occurs if 
there is insufficient space for at least the first two counters. Otherwise, 
insufficient space causes a condition code of C‘04’. The PFP and the FLI for 
the segment that contains the parameter list remains unchanged after STATS is 
executed. 
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Name Operation Operand — 


defld2 
[label] STATS (defrf2 ) 
(reg2 ) 
operand 2 | | 


Defines the start of the parameter list. The length associated with the 
operand is ignored. The parameter is assumed to have one of two 
formats. For request codes X‘01’, X‘02’, X‘03’, and X‘04’, format 1 is 
used as explained in Figure 5-5 on page 5-373. For request codes X‘05’ 
and X‘06’, format 2 is used as explained in Figure 5-6 on page 5-374. 


Note: DEFCON label cannot be used. Also, the segment number in the 
DEFLD instruction cannot be 14. 7 


Condition Codes: One of the following codes is set: 


Hex Code Explanation: 

01 The requested function was performed successfully. 

02 There was an invalid device or extended counter specification. 
04 There was insufficient space in the segment to store all of the 


device statistical counters. 
Program Checks (hex): 01, 02, 09, 11, or 27 can be set. 


Program check 01 occurs if the segment to which DEFLD instruction refers is 
14. 


Program check 02 occurs if there is insufficient space for the requested 
information. 


Program check 09 occurs if the EXTCTR macro was not coded in the CPGEN 
or if loading of the extended counter module was suppressed by the control 
operator. | 


Program check 11 occurs if the request code is not one of those listed in 


Figure 5-5 on page 5-373 or Figure 5-6 on page 5-374. Program check 27 is 
set when a register address contained an invalid segment space ID. 
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Request| Flags |ESCID DEVID Total Error Num. of 

Code Bytes Bytes Devices 
Byte Q 1 2 hk 6 12 16 17 
Request Code 


Is a 1-byte request code, as follows: 
Code Meaning 


X‘O1’ For the specified ESCID, return the first DEVID, total bytes, error count, and number of devices 
assigned to an extended counter. 


X‘02’ For the specified ESCID, return a DEVID associated with the extended counter. 
X‘03’ Reset all extended counters. 
X‘04’ For the specified DEVID, return the corresponding ESCID. 


Flags 
Is an 8-bit modifier as follows: 


Flag Name Meaning 


X‘80’ RESET Reset (zero) the extended counter after read-out 
(Request Code = 01). 


X°40’ NEXT The statistical counter to be accessed is the 
counter after the one addressed by the parameter list. 


ESCID 
Is a 2-byte hexadecimal (X’xxxx’) ID specified on the EXTCTR macro. 


DEVID 
Is a 2-byte physical device address consisting of loop, terminal loop address, component, and subaddress. 


Total Bytes 
Is the number of bytes transmitted from the input device(s). 


Error Count 
Is the number of error bytes detected on the input transmission. 


Number of Devices 
Is the number of devices assigned to this extended counter. 


Figure 5-5. Format 1 Request and Information Returned by STATS 
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Code 


Byte 


Request Code 


Request fa DEVID. |Device|Feature 


Type |Flags 


Station|Num. of IStatistical 
ID Counters| Counters 


S byte each) 


Is a 1-byte request code, as follows: 


Code 


X‘0S’ 


X‘06’ 


Flags 


Meaning 


For the specified DEVID, return the basic statistical counters 
associated with the device. 


Reset all basic statistical counters. 


Is an 8-bit modifier, as follows: 


Flag 


X80’ 


X*40’ 


DEVID 


Name Meaning 


RESET Reset (zero) the statistical counters 


associated with the device after read-out. 


NEXT _ The statistical counters to be accessed are 


the next counter after the one addressed 
by the parameter list. 


Is a 2-byte physical device, loop, or port address. The following is the 
format table of allowable DEVID entries. 


Diskette 
Link 

Loop 

Loop Device 
DCA Adapter 
DCA Port 
DCA Device 


x'g! x'2! or ) a * | 
X'Q' 6 on 


| x'Q' x'@' 


Terminal {Component 


X'A' x'Q@' 


Port. x'@' 


Port Component 


* x'2' = primary diskette; X'3' = secondary diskette 


Figure 5-6 (Part 1 of 3). Format 2 Request and Information Returned by STATS 
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Loop 


Is the 4-bit binary loop number (1-4) assigned during the controller 


configuration procedure. 


Terminal 


Is the 4-bit binary terminal address established at the terminal by setting 
address switches on the terminal itself. 


Port 


Is the 4-bit binary number (0-7) of the DCA port. 


Component 


Is the 4-bit component address of a terminal component, as follows: 


Component 
Address Component 


0001 4704/3604/3278/3279 Keyboard 

0010 4704/3604/3278/3279 Display 

0011 4704/3604 Magnetic Stripe Encoder 

0100 4710/3610/3612 Document Printer 

0101 3611/3612 Passbook Printer 

0100 3615 Administrative Terminal Printer 
(non-address shared) 

0110 3606/3608 Keyboard/Display 

0111 3608 Printer 

1000 3614/3624 Terminal 

0100 3262/3287 Printer 

nnnn* 3615 Administrative Terminal Printer 
(address shared) 

nnnn* 3616 Journal Printer 

nnnn*+1 3616 Passbook/Document Printer 


*nnnn = the setting of the unit’s subaddress switches 
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5-376 


Devic 


e Type 


Is a 1-byte component code, as follows: 


Code 
X‘01’ 
X‘02’ 
X‘03’ 
X‘04’ 
X‘05’ 
X80’ 
X‘8 1’ 
X82’ 


X°83’ 


X*84’ 
X‘86’ 
X87’ 
X‘88’ 
X‘89’ 
X‘8A’ 
X°92’ 
X°95’ 
X°9A’ 
X‘AB’ 
X“BO’ 


Component 

Communication Link 

Diskette 

ALA Line - 

Disk 

Encryption Facility 

Loop 

4704/3604/3278 Keyboard 
4704/3604/3278 Display 
Displaywriter 

Personal Computer 
4710/3610/3612 Document Printer 
3611/3612 Passbook Printer | 
3262/3287 Printer 

4704/3604 Magnetic Stripe Encoder 
3614/3624 Consumer Transaction Facility 
3606/3608 Keyboard/Display 

3608 Printer 

3615 Administrative Terminal Printer 
3616 Printer 

Device Cluster Adapter 

4710 Printer 

Magnetic Stripe Encoder for 4704 Models 2 and 3 
4720 Printer 3 


Figure 5-6 (Part 2 of 3). Format 2 Request and Information Returned by STATS 
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Feature Flags 
Is an 8-bit code. The contents of this byte are device dependent, and the 
feature flags defined are listed in the COPY file DEFESP. All application 
program references to these flags should be by use of the symbols defined 
on DEFESP to avoid source changes or improper execution in case flag 
values must be redefined in subsequent releases. 


No feature flags are defined for the communication link, diskette, or disk. 
The byte for loops indicates the clocking loop and the configured loop 
speed. For loop-attached devices, feature flags 5 through 8 are common to 
all devices and features 1 through 4 vary by device. 


Devices for which no symbols are listed in DEFESP do not use the feature 
flags. Flag values for any listed device that are not defined are reserved 
and should not be assumed to be either 0 or 1. 


Station ID 
Is the binary ID number of the station associated with the device. 


Number of Counters 
Is the binary number of statistical counters that follow. 


Statistical Counters 
Are the counters themselves (see the 4700 Subsystem Operating 
Procedures: GC31-2032 for further information). 


Figure 5-6 (Part 3 of 3). Format 2 Request and Information Returned by STATS 
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STFLD--Store Field 


STFLD stores the contents of a register into a field. The data is moved without 
character conversion. If the field to contain the contents of the register is less 
than 6 bytes long, the data is truncated on the left. If this field is longer than 6 
bytes, the leftmost bit of the register is propagated to the left to pad the rest of 
the field. 


Name Operation Operand 


defld2 

[label] STFLD reg, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a register whose contents are to be stored. 


operand 2 
Is a field that is to contain the contents of the register. The field must 
not be in Segment 14, and the field length can be 1-15 bytes unless you 
specify register addressing, which allows a length ranging from 1 to 4095 
bytes. 


Condition Codes: One or more of the following are set: 


Possible 
Hex Code Mnemonic Explanation 
O1 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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| STFLDC 
STFLDC--Store Field Character 


STFLDC stores the decimal EBCDIC equivalent of the signed binary number 
in a register into a field. If the field is too small, the converted number is 
truncated on the left. The maximum value for the converted number is 15 
characters. Zero characters C‘0’ complete the field to the left from the most 
significant character. The sign is not retained in the stored data. If a sign is 
desired, the programmer must insert a sign character. 


Name Operation Operand 


defld2 

[label] STFLDC réegl, (defrf2 ) 
(reg2 ) 
seg2,disp2,len2 


operand 1 
Is a register whose contents are to be converted and stored. 


operand 2 
Is a field to contain the converted number. The field may not be in 
Segment 14, and the length of this field can be 1-15 bytes unless you 
specify register addressing which allows a length ranging from 1 to 4095 
bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 


Chapter 5. 4700 Instruction Descriptions (Alphabetically) 5-381 


5-382 


Programming Notes: All operations are performed algebraically on the contents 
of two registers or a register and a field. The example below shows a use of the 


STFLDC instruction. 
OUTFLD DEFLD OUTSEG,0,19 1 
OUTTYP DEFLD OUTSEG,0,2. 2 
OUTACCT DEFLD OUTSEG,,7 3 
OUTAMNT DEFLD OUTSEG,,10- 4 
@ 
e 
° : 
ADDREG RO1,RO02 5 
BRAN OV,ERR1 6 
STFLDC RO1,OUTAMNT 7 
BRANL NG,MINUSRTN 8 


Defines the entire output field. 

Defines the transaction type field within OUTFLD. 

Defines the account number field. Because the displacement is omitted, the 
field is assumed to begin at the next byte after OUTTYP. 

Defines the amount field. Again, the displacement operand is omitted. 
Adds the amount in REG1 and REG2 and stores the result in REG1I. 
Tests for overflow. Any other condition is ignored. 

Converts the total to EBCDIC decimal characters and stores the rightmost 
10 digits in OUTAMNT. | 

Branches to a subroutine that inserts the minus sign if a negative number 
was stored. 


EA a kb (od ND pt 


OO 
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STOVLY--Start Overlay 


STOVLY 


STOVLY defines a load point for an overlay section. This instruction may be 
included either in the root section or in an overlay section. The STOVLY 
instruction generates an ENTRY instruction. 


Note: When you are assembling with the nonrelocatable option (RELOC=N 
in the APOPT instruction), the STOVLY instruction and the OVLYSEC 
instruction that refers to it must appear in the same assembly. 

When a relocatable overlay section is assembled separately from the application 


root, EXTRN and ENTRY instructions must be used to establish the 
connection between the STOVLY and the OVLYSEC instructions. 


Name Operation Operand 


| 


The C, I, and A operands are used only for split application programs. See 
Appendix F for further information. 


[label] STOVLY 


IP HO 
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STSEG--Store Segment 


STSEG stores the contents of a register into a segment-header addressed field. 
If the field to contain the register contents is less than 6 bytes long, the data is 
truncated to the left. If this field is longer than 6 bytes, the high-order bit of 
the high-order byte is propagated to the left to fill the entire field. 


Name Operation Operand 


[label] STSEG reg1,seg2 


operand 1 
Is a register whose contents are to be stored. 


operand 2 
Is a field in the specified segment that is to receive the register’s | 
contents. The field must not be in Segment 14. The location of the field 
within the segment to contain the register contents is determined by the 
primary field pointer and the length is determined by the field length 
indicator. The field length can be from 1 to 4095 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, or 03 may be set. 
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STSEGC stores the decimal EBCDIC equivalent of the binary contents of a 
register in a Segment-header addressed field. Zero characters (C‘O’) pad the 
field to the left from the most significant digit. If the field is too small, the 
converted number is truncated to the left. The maximum value for the 
converted number is 15 characters. The sign is not retained in the stored data. 
If a sign is desired, the programmer must insert a sign character. 


STSEGC--Store Segment Character 


Name Operation Operand 


[label] STSEGC reg1,seg2 


operand 1 
Is the register whose contents are to be converted and stored. 


operand 2 
Is a field in the specified segment that is to receive the register’s 
contents. The field must not be in Segment 14. The location of the field 
within the segment that is to contain the converted number is indicated 
by the primary field pointer and the length is indicated by the field length 
indicator. The field length can be from 1 to 4095 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
O5 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 TR Truncation occurred. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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SUBFLD--Subtract Field 


SUBFLD algebraically subtracts the binary contents of a fixed field from the 
binary contents of a register and places the result in the register. 


The field must be between 0 and 6 bytes long. If a length of 0 is specified, a 
binary 0 is subtracted from the contents of the register. The leftmost bit of the 
leftmost byte is assumed to be the sign. 


Name Operation Operand 


defcon2 
cdefld2 
[label] SUBFLD regi, (defrf2) 
(reg2 ) 
seg2 ,disp2,len2 


operand I 
Is a register containing the minuend. At the end of the operation, this 
register contains the result. 


operand 2 
Is a field containing the value (subtrahend) to subtract from 


operand 1. The length of the subtrahend is from 0 to 6 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
O1 ZO The result is 0. 
Q2 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
O5 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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SUBFLDL subtracts the contents of a 6-byte field from the contents of a 
register. If the field length is less than 6 bytes, the field is treated as a 6-byte 
field by propagating zeros to the left. The binary contents of the field is then 
subtracted from the binary contents of the register and the result is placed in 
the register. If a length of 0 is specified, a binary O is subtracted from the 
contents of the register. 


SUBFLDL--Subtract Field Logical 


Name Operation Operand 


defcon2 
defld2 
[label] SUBFLDL reg1, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand I 
Is a register containing the minuend. At the end of the operation, this 
register contains the result. 


operand 2 
Is a field containing the value (subtrahend) to subtract from 


operand 1. The length of the subtrahend is from 0 to 6 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 

O1 ZO The result is 0. 

O02 NG The result is less than 0. 

03 LE The result is less than or equal to 0. 

04 PS The result is greater than 0. 

O5 GE The result is greater than or equal to 0. 

06 | NE The result is not equal to 0. 

08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 

OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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SUBREG algebraically subtracts the binary contents of one register from the 
binary contents of another register and places the result in the register specified 
in the first operand. 


SUBREG--Subtract Register 


Name Operation Operand 


[label] SUBREG reg1i,reg2 


operand 1 
Is the register that contains the minuend. At the end of the operation, 
this register contains the result. 


operand 2 
Is the register that contains the value (subtrahend) to subtract from 


operand 1. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is O. 
02 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
O08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
OA An overflow occurred and the result is less than 0. 
OC An overflow occurred and the result is greater than 0. 


Program Checks: None are set. 
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This instruction subtracts zoned decimal operand 2 from zoned decimal 
operand 1, and replaces operand 1 with the result. The length of either 
operand is from 1 to 63 bytes; if either operand is more than 15 bytes long, it 
must be selected using register addressing. 


SUBZ--Subtract Zoned Decimal 


Note: This is an optional instruction, and requires that module P31 be 
specified on the OPTMOD configuration macro. 


Name Operation Operand 


defcon2 
defldi defld2 
[label] SUBZ (defrf1) ; (defrf2) 
(reg ) (reg2 ) 
seg1,disp1,lent1 seg2,disp2,len2 


operand I 
Is a field containing the zoned decimal minuend (value subtracted from), 
and the location of the result. If this operand length is greater than the 
result, each unused high-order byte is set to X‘FO’. This operand cannot 
be located in Segment 14. 


operand 2, 
Is a field containing the zoned decimal subtrahend (the value 
subtracted). 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 ZO The result is 0. 
Q2 NG The result is less than 0. 
03 LE The result is less than or equal to 0. 
04 PS The result is greater than 0. 
05 GE The result is greater than or equal to 0. 
06 NE The result is not equal to 0. 
08 OV An overflow occurred. 
09 An overflow occurred and the result is 0. 
0A An overflow occurred and the result is Jess than 0. 
OC An overflow occurred and the result.is greater than 0. 


Program Checks (hex): 01, 02, 03, 09, or 27 can be set. 
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TABLE--Define Table for LSEEK/LSEEKP 


TABLE defines a table, in Segment 14, composed of variable-length elements 
that may have branching locations associated with them. All entries in a table 
occupy the same amount of storage, because entries shorter than the length 
specified in the LNG operand are padded on the right with blanks. 


The generated TABLE may be referenced by the LSEEK and LSEEKP 
instructions. The SRT operand is used with the LSEEKP instruction to provide 
a binary search. 


A maximum of 200 entries may be specified in a table. Each operand specified 
in the TABLE instruction cannot exceed 255 characters including commas, 
parentheses, and quotation marks. Each element in the instruction can be 
specified in one of two forms: 


1. A mixture of data types, enclosed in parentheses with the data types 
separated by commas © 


2. A-single data type. 


To define a table of elements without associated branching locations, you code 
TABLE like this: 


Name Operation Operand 


[label] TABLE element1[,element2...,elementn] , LNG=nnn 
[, SRT=n ] 
where: 
element is \ data } 
(datal,data2...,datan) 


To define a table of elements with associated branching locations, you code 
TABLE like this: 


Name Operation Operand 


[label] TABLE element1[,element2...,elementn] , LNG=nnn 


[, SRT=n ] 
where: 
element is \ (data,adadr ) 
(datal,data2...,datan,addr ) 


data 
Is the information, called a data item, to be included in this element of 
the table. It may be specified as hexadecimal (X‘nn’), character (C‘nn’), 
an A-type address constant (ALn(nn)), fullword (FLn‘nn’), or halfword 
(HLn‘nn’). 
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addr 


LNG 


SRT 


Is an address constant or the label of an instruction. The LSEEK 


instruction that refers to this table can be coded so that a match between 


the field referred to in LSEEK and a table element causes a branch to 


this location (see the description of LSEEK). The label may be an 


external symbol when RELOC=Y is specified in the APOPT instruction. 


Is a decimal value from 1 to 255, specifying the length of the entries in 
the table. The length must be equal to or greater than the largest entry. 
Entries shorter than the length specified are padded on the right with 
blanks. : 


Specifies that the table is to be sorted, and the number of characters on 
which to sort. Replace m with the number of characters at the beginning 
of each entry that are to be sorted. This sort field is always a subset of 
the total entry, and always begins at the beginning of the element. 


If you code this operand to sort the table, the first data item of each 
element must meet these requirements: 


e The data type must be either C or X. 
« All data items must have the same attribute (C or X). 


e If several data items are specified for an element, the element is 
sorted according to the first data item only. 


4700 Controller Programming Library, Volume 1: General Controller Programming 


TSTMSK 


TSTMSK--Test under Mask 


TSTMSK tests 1 or 2 bytes of a field under control of a mask. Each bit position 
in the mask that contains a 1 causes the corresponding bit position in the field 
to be tested. TSTMSK returns a condition code that signifies the bits tested 
were all 0’s, all 1’s, or mixed, or that the bits tested were identical to the mask. 


Name Operation Operand 


defcont defcon2 
defldt defld2 
[label] TSTMSK (defrf1) ; (defrf2 ) 
(reg1) (reg2 ) 
segi,disp1 seg2,disp2,len2 
operand 1 
Is a field to be tested. The number of bytes to be tested is determined by 
the length of the mask. 
operand 2 


Is a field containing the mask. The length must be either 1 or 2 bytes. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 MZ All tested bits are 0’s or the mask bits are 
all 0’s. 
02 MX The tested bits are mixed 1’s and 0’s. 
04. ME The tested field and the mask are identical. 
08 MO All tested bits are 1’s. 


Note: Condition code hex 04 is set with hex 08; it is never set alone. This may 
affect the result of a branch (or JUMP) instruction that uses this code as the 
condition for the branch. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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TSTMSKI tests 1 or 2 bytes of a field under control of a mask made up of 1 or 
2 bytes of data. Each bit position in the mask that contains a 1 causes the 
corresponding bit position in the field to be tested. TSTMSKI returns a 
condition code that signifies the bits tested were all 0’s, all 1’s, or mixed, or that 
the bits tested were identical to the mask. 


TSTMSKI--Test under Mask Immediate 


Name Operation Operand 


defcon1 
defldi 
[label] TSTMSKI (defrf1 ) ,immdata2 
(regt) 
seg1,disp1 


operand 1 
Is a field to be tested. The length of the field must be either 1 or 2 bytes. 


operand 2 


Is the 1 or 2 bytes of immediate data to be used as the mask. The length 
of the mask determines the length of the operation. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 MZ All tested bits are 0’s or the mask bits are 
all 0’s. 
02 MX The tested bits are mixed 1’s and 0’s. 
04. ME The tested field and the mask are identical. 
08 MO All tested bits are 1’s. 


Note: Condition code hex 04 is set with hex 08; it is never set alone. Consider 
this when writing an instruction that uses this code as the condition for a 
branch. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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5-402 


Programming Notes: For example, the application program must now transmit 
the output field to the central processor or record the field on the diskette for 
later transmission. The decision is made by testing the link status bit in 
Segment 15. The example below shows the test. (Assume that a COPY 
DEFGMS is included in the application program to provide the field definition 
for GMSIND.) 


TSTLNK TSTMSKI GMSIND,GMSILDM 1 
BRAN MO,DISK WRT 2 
BRANL CPUWRT 3 


1 Tests bit 0 of the Segment 15 indicator byte to determine the status of the 
link (see the COPY DEFGMS instruction in Appendix B for definitions of 


GMSIND and GMSILDM). 

2 Branches to the diskette write routine if the tested bit is on (the link is 
down). 

3 Branches to the central processor write routine if the tested bit is off (the 
link is up). 
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UPKFLD--Unpack Field 


UPKFLD 


UPKFLD translates a fixed field of 4-bit binary codes into hexadecimal 
EBCDIC. The unpacked field can consist of the numbers 0 through 9 and 
letters A through F. The length of the unpacked field is twice the length of the 
field to be unpacked. 


Refer to the PAKFLD instruction for the table of packed and unpacked 
equivalents. 


Name Operation Operand 


defcon2 
defld2 
[label] UPKFLD segli, (defrf2) 
(reg2 ) 
seg2,disp2,len2 


operand 1 

Is a field in the specified segment that is to contain the unpacked field. 
The field must not be in Segment 14. The location of the field within the 
segment to contain the unpacked field is indicated by the primary field 
pointer (PFP). The field length indicator is ignored unless the operand 2 
length is specified as 0. Following the execution of the instruction, the 
PFP points 1 byte past the end of the field, and the field length indicator 
is unchanged. 


operand 2 
Is a field to be unpacked. The length of the field to be unpacked is from 
0 to 15, unless a form of register addressing is used, which allows a 
length ranging from 0 to 255. If 0 is specified, the field length indicator 
of operand 1 indicates the length of the operation. 


Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, 03, or 27 can be set. 
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UPKSEG translates a variable field of 4-bit binary codes into hexadecimal 
EBCDIC. The unpacked field can consist of the numbers 0 through 9 and 
letters A through F. The unpacked field is twice the length of the field to be 
unpacked. If the length of the field to be unpacked is equal to 0, no operation 
occurs. 


UPKSEG--Unpack Segment 


Refer to the PAKFLD instruction for the table of packed and unpacked 
equivalents. 


Name Operation Operand 


f{label] UPKSEG seg1,seg2 


operand | 
Is a field in the specified segment to contain the unpacked data. The 
field must not be in Segment 14. If the operands refer to different 
segments, the location of the field to contain the unpacked field is 
indicated by the primary field pointer (PFP). If both operands refer to 
the same segment, the location of this field is indicated by the secondary 
field pointer (SFP); when the operation is completed, the primary field 
pointer points to the first byte past the end of the field. In either case, 
the field length indicator is ignored. 


operand 2 
Is a field in the specified segment containing the data to be unpacked. 
The PFP indicates the start of the field, and the field length indicator 
gives the length of the field to be unpacked. This length cannot exceed 
255. The PFP is not changed when the instruction is executed. 
Condition Codes: The code is not changed. 


Program Checks (hex): 01, 02, or 03 may be set. 
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This instruction specifies that a register will be used as the base register for a 
DSECT. 


USEBASE--Use a Base Register for a DSECT 


Name Operation Operand 


USEBASE label, { regI|* } 


label 
specifies the label of a LDSECT instruction. 


reg 
specifies a register that will be used as the base register when references 
are made to the field within the specified DSECT. This value overrides 
any previous specification made either on the LDSECT instruction or a 
previous USEBASE instruction. 


An ‘*? 


indicates that the register should be reset to the specification made on 
the LDSECT instruction. 
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VERIFY--Verify 


VERIFY checks a field for either (1) a maximum and minimum field length, or 
(2) a maximum and minimum field length and EBCDIC numeric characters. 


Name Operation Operand 


defcon2 
defld2 


[label] VERIFY segi, (defrf2 ) 


(reg2 ) 
seg2,disp2 


operand 1 


Is a field in the specified segment to be verified. The start of the field is 


indicated by the primary field pointer, and the length by the field length 
indicator. 


operand 2 


Is a field containing the parameter list. The length associated with this 
operand is ignored, and the first 3 bytes are assumed to be the parameter 


list. 


The format of the parameter list is shown below. 


0 


Max 


Min 


2 


1 


Is a 1-byte hexadecimal value that indicates the type of check that 
is to be made. If hex 01, a check is made to verify that the length 
of the field pointed to by the first operand is within the limits of 
the minimun and maximum. If hex 02, the check is the same as a 
type hex 01 check, but the field is also checked to verify that all 
characters are valid EBCDIC numerics. The first position only 
may be a minus sign; if it is a minus sign, it is not included in the 
check for length. 


Note: Any other value specified for type defaults to hex 01. 


Is the maximum length of the field (0-255), excluding the minus 
sign for negative numeric fields. 


Is the minimum length of the field (0-255), excluding the minus 
sign for negative numeric fields. 
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Condition Codes: One of the following is set:. 


Possible 
Hex Code Mnemonic Explanation 
01 OK The field checked corresponds to the 
characteristics described by the parameter list. 
02 IL The field length is not within the limits described 
by the parameter list. 
04 NN The field is not numeric. 


Program Checks (hex): 01, 02, or 27 can be set. 


Programming Notes: In this example, VERIFY tests a field for both length and 
EBCDIC numeric characters. The result of the check is indicated by one or 
more condition codes. The application program tests the condition code to 
determine whether the field is valid or invalid. The instructions below show 
how the account number entered by the teller is tested for 7 numeric digits. 
Step 2 of the example sets the PFP and FLI of INPUTSEG as follows: 


SDEP 3382206 128.50 400. EOM* 
PFP FLI 
ACCTCHK DEFCON X‘020707’ 1 
SAVRTN SETFPL INPUTSEG,+F 2 
VERIFY INPUTSEG,ACCTCHK 3 
BRAN X‘06’,ERROR 4 


1 Provides the testing criteria used by VERIFY. It specifies a check for length 
(a maximum and minimum of 7 characters) and all numerics. 

2 Sets the PFP and FLI so that they define the field containing the account 
number. 

3 Checks whether the account number consists of seven numeric digits. A 
condition code is set to indicate the result. 

4 Changes the program flow if the account number was not within the limits 
described by the parameter list. 


5-410 4700 Controller Programming Library, Volume 1: General Controller Programming 


| VIEW 
VIEW--VIEW APCALL/APRETURN Stack 


The VIEW instruction returns information associated with 
an APCALL/APRETURN stack entry for a given station. 
Stack entry IDs correspond to segment space IDs. 


The operand of VIEW locates a parameter list defined by 
the COPY DEFVUE instruction. Prior to VIEW execution the 
application program must initialize: 


1. VUEREQ to X‘01’ 


2. VUESTA to the number of the station for which information 
is to be returned 


3. WUESTK to the stack ID for which information is to be 
returned. A value of X‘00’ indicates a request for the 
current stack entry of the specified station. 


The VIEW instruction will set: 


1. VUESTK to contain the requested stack ID (this is 
significant only if X‘OO’ was used on input to request 
the ‘current’ entry) 


2. WUEFG1 to contain flag bits as follows: 

a. VUEFLOM if set indicates that the entry is in use. 

If reset, then the entry is not in use and other fields returned by 
VIEW are residual (that is, values left from the last use of the 
stack entry). 

b. VUEFLIM if set indicates the entry is permanent. 

c. VUEFL2M if set indicates that the ‘B’ set of registers 
(Segment 0) is active. If reset, it indicates that the ‘A’ set of 
registers is active. 

3. WUEUIC to the user instruction counter. 
4. VUELSB to the bottom of the SMS link stack. 
5. WUELSE to the top of the SMS link stack. 


6. WUEDEL to the saved value of SMSDEL (delimiter 
table). 


7. VUEPNT to the parent segment stack ID of 
the requested stack entry. If the returned stack ID is X‘01’, 
then the parent segment space ID is set to X‘00’ indicating 
no parent exists. 
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8. WVUEFG2 to contain flag bits as follows: 
a. | VUERTF if set indicates the application program is transient. 
b. VUEFAC if set indicates that the application program can be 
called by an APCALL instruction. 
9, VUEPID to the application program name. 


An application program could, for example, fetch the 
calling program name and instruction counter by executing 
a VIEW instruction with X‘00’ to get the current stack’s 
parent ID, then execute a VIEW requesting this parent ID. 
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The format of the VIEW instruction is: 


Name Operation Operand 


defld2 
[label] VIEW (defrf2 ) 

(reg2 ) 

seg2,disp2 


operand 2 
Is the field containing the parameter list. The field must not be in 
Segment 14. The length associated with the field is ignored, as the 
parameter list is assumed to be 26 bytes long. 


Condition Codes: One of the following is set: 


Possible 
Hex Code Mnemonic Explanation 
01 OK Normal completion (this includes a stack entry 
which is not in use) 
02 ID Invalid station number. 
04 Invalid segment space ID. 


Program Checks (hex): 01, 02, or 11 can be set. 
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Appendix A. Machine Instruction Formats 


This appendix contains the machine instruction formats of the 4700 assembler language instructions that are 
described in this book. The machine instructions are listed in operation code sequence within an alphabetic 
sequence by instruction mnemonic. In other words, the ADDFLD instruction is first and the 01 operation code 
of the ADDFLD instruction appears before the 73 operation code. 


The following symbols appear in this appendix: 


Symbol 


A(—) 


exe AM PVAZ ESS 


Hex Digit 


Mmioonuahwnro 


Meaning 


Address of ‘‘—” (in adcon form) 

Displacement 

Immediate data 

Length 

Mask 

Bit number 

Field pointer 

Register 

Segment | 

First bit in field is a wait modifier (0 for wait, 1 for no wait); remaining bits are logical device 
address (LDA) 

First bit in field is a wait modifier (0 for wait, 1 for no wait); remaining bits are reserved 
Code - see Volume 1 

File - Field is set as follows (see Volume 2 for explanation): 


Mnemonic 
C 
TF1 
TF2 
TE3 
TF4 
PLR 
PBN 
DSID 
A 
P 
L 
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> 
7) 
7) 
rel 
Cs 
o 


oo 
poe 
NO 
— 
oN 
N 
© 
Lo) 
— 


‘ie 

o 

rej 

c 

oO 
Ea 
vO 
EF 
Nw 


47 


20 fo |r frafo 


eo 
i 
oO 
nN 
oO 
wD 
~ 
N 
Le) 
Ww 
— 


> ° > 
o Pee, 
o i, 
rr = 
= s 
o o 


ADDFLDL | 
0 g 16 20 24 #2 #32 ~ 47 
ADDFLDL 

0 g 16 20 24 2831 

ADDFLDL 


~—] 
(a 
foe} 
rs 
y 
EZ 
B] og 
nw 
SO} ot 
N 
Jie 
N 


47 


° > ° 
i: i” 
o 
a 
ig? 
Q 
Ea 
Nf 


fo ¢] 
—* 
vo 
— 
Lo) 
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ADDZ 


0 8 16 20 24 28 32 48 63 
ADDZ 

jn |r fufolmis fo 

0 8 16 20 24 28 32 47 

ADDZ 

ee 
0 8 16 20 24 28 32 48 63 
ADDZ 

ee ee ee 
0 g 16 20 24 28 32 48 63 
ADDZ 

a eee 

0 g 16 +20 24 «228 ~ 32 47 

ADDZ 

nfo fofuls|rfm 

i) 8 16 20 24 28 32 47 

ADDZ 

afm fofufmiRf 

0 8 16 20 24 28 32 47 
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AND 


eee 
0 8 16 24 28 32 


47 


AND | 
0 8 16 24 28 32 47 
AND 

m= [> [ale 

0 8 16 24 28 31 


0 g 16 24 28 32 48 56 63 
ANDI 

0 g 16 24 28 32 40 47 

ANDI 

0 g 16 24 «28 ~=— (32 48 56 63 


APCALL (WAIT) | 


as fits fo 
0 8 12 16 


31 
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APCALL (WAIT) 


8 46 24 ~=—«28 31 


APCALL (NOWAIT) 


APCALL (WAIT) 


ma |e foo |rijo fp 
0 8 16 24 28 


32 47 


APCALL(NOWAIT) 
mic foo fmfo[p 
0 8 16 24 28 #32 ~~. 47 
APRETURN 

0 g 15 

BRAN 

SCC 

0 4 g 16 | 31 

BRANL 

> pease [oan 

0 4 8 12 16 31 

BRANLR 

> [ma [Re 

0 4 8 12 15 
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iz 
& 

= 
he 
N 
aL 
LA 


BRANX 
os |e [Ri [address 
0 8 12 16 31 
CAFLD 


>) © 
> g 
o 
oO 
a 
N 


~ 
WwW 


ra .) 2 OQ 
~) 
O |e my 
me re 
Oo 7) 
= 
Ea 
NS) 


co oo 
pp 
—s 
—— 
r+) 
N 
(=) 
JED . 
> > 
tw 
r foe) 
i: po 
—" 


28 32 47 


CAFLDL 
fot fs fej ufo 
0 8 146 20 24 #=28 32 47 
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g 16 20 24 2831 
CCFLD 

7 fo fo fs |mle fr 

0 g 146 20 24 28 32 47 

CCFXD 

Se eee 

0 g 12 16 24 36 47 

CCFXD 

me fo fu |sfajo  |m 
0 8 16 24 28 32 48 63 
CCFXD 

ee eee 
0 8 16 24 «-28~—(32 48 63 
CCFXD 

me [20 fo fmf |p 

0 g 16 24 28 32 47 

CCFXD 

m [so fu |[sfajo [mo 
0 g 16 24 28 32 48 63 
CCFXD 

ee eee 
0 g 16 24 28 32 48 63 
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= 2: 
a 
Oo 
| a 
o 


-— 
a 
No 
> 
ho 
oo 
i #) 
NO 


47 


~CCFXD 
mm fo ft [sie fo 
0 g 16 24 «28 =~ 32 47 


> 
~ 


: oO 2 @ 
> 19 m 1a 

Wn re 

as 

a ~) 

re : 
ia 
i) 


COMP 
ce fois ip 
0 r 12.16 31 
COMP 


—] 
\O 
foe} 

ia ie 

— ns 
iu tr 
EZ EZ 

~ 


> 
fo) 
NO 
> 
vw 
[><] 
Ww 
N 


fan) Q fo) 
oO 
< 
ey 


47 
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0 8 16 20 24 28 32 48 63 


COMPZ 

ja fo fujulefsfo fm 
0 g 16 20 24 28 32 48 63 
COMPZ 

mf |ulofris|n 

0) g 16 20 24 28 32 47 

COMPZ 

mf fofelsfefa fe 
0 8 16 20 24 28 32 48 63 
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~ 
\© 


© 
NO 
Fa 
nN 


16 24 


~] 
\o 


° ~, ° 
G2 
OQ 
© 
< 
~ 


pened 
NO) 


00 


N 
*| @ 
ae 
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i] 
co 
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es 
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~ 
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Ea 
NO 
Ea 
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rN 


\o) 
foe] 
fount, 
N 
— 
oO 
NO 
oO 
Ww 
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S) 
SI 
QO 
fo) 
< 
a”, 
4 
bo 


o 
ts 
-) 
© 
S 
n°, 
pon] 
OS 
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o 
rH 
-) 
© 
< 
ry 
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TC 


foe) 
P| 
poh 
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ta 
ie) 


sy 
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No 
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N 
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nN 
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N 


47 


AT 


AY, 


Ww 
id 
c= 
~~ 
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_ Appendix A. Machine Instruction Formats A-15 


re = 00 if the WAIT Parameter = Y 
08 if the WAIT Parameter = N 


* = 00 if the WAIT Parameter = Y 
08 if the WAIT Parameter = N 


DTAFREE 


ma [aw for |sfolp 
| 16 24 28 32 


0 8 


a jm for |rfo ip 
16 24 28 32 | 


0 8 47 


0 12 


16 31 


8 12 16 31 
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ERRLOG 

jc fee fo js [mio |p 

0 8 16 20 24 28 a2 47 

EXOR 

fs fsfu fo fe 

0 8 12 16 24 36 47 

EXOR 

Ee Ee oe ce Cs 
0 8 16 24 28 32 48 63 
EXOR 

me {ne fefsf> [me 
0 8 16 24 28 32 48 63 
EXOR | 

me fa fo [eff 

0 8 16 24 28 32 47 

EXOR 

Ea Ec Le) 
0 8 16 24 28 32 48 63 
EXOR 

Ee Ce 
0 8 16 24 28 32 48 63 
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0 g 16 24 28 32 47 

EXOR 

me fot ft fie fm 

0 g 16 24 28 32 47 

EXOR 

ee ee ee 

0 g 16 24 28 ~»«32 47 

EXOR 

me fat foo [RA] 

0 g 16 24 28 31 

EXORI 

2s fi fs fulo fn |e 

0 g 12 16 20 32 40 47 

EXORI | 

7a foe foo ffs fo fn 
0 g 16 24 28 32 48 56 63 
EXORI 

jefe foo fade fy fu 

0 g 16 24 28 ©#«32 40 47 

EXORI 

a ee eee 
0 g 16 24 28 32 48 56 63 
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0 | 8 16 24° 28 32 | 48 63 


INOR 

= [ee bl 
0 8 16 24 28 32 48 63 
INOR 

Ee CeCe 

0 8 16 24 28 32 47 
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INOR 


me [32 foo fei iD 
0 g 16 24 28 


32 47 


INOR 

me fe ju [ss fmf 
0 —  g 16 24 28 32 47 
INOR- 

Ee ee Le 
0 8 16 24 28 32 | 47 
INOR 

7 fae foo fm] 

0 8 16 24 28 31 

INORI 

2s fols|fujo |n |u| 
0 8 12 16 #20 32 40 47 
I 


0 
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NORI 
fos foo usaf fun 
g 16 24 «2832 48 


) g 16 24 28 32 

INTMR 

je [poisfp 

fe) g 12 16 31 

INTMR 

7a [oa foo [ro 

) 8 16 24 =. 28 31 

INTMR 

9) 8 16 24 28 32 47 


*—number of bytes being jumped 
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| 


oo 15 


*Bits 12-13 = O for off, 2 for on, 1 for next; Bits 14-15 are reserved. 


LCHECK a to 


a 15 


LCONVERT (TOBYTES) 


jo) 
[oe] 
— 
a 
dB 
> 
Nd 
oo 
Ww 
N 
> 
co 


63 


LCONVERT (TOBYTES) 


LCONVERT (TOBYTES) 


LCONVERT (TOBYTES) 


LCONVERT (TOBYTES) 
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LCONVERT (TOBYTES) 


Be eee 
8 16 24 28 32 


0 


LCONVERT (TOBYTES) 

a ee 

0 g 16 24 28 32 47 

LCONVERT (TOBYTES) 

me [se foo [ra fR, 

0 g 16 24 «28 31 

LCONVERT (TOBITS) 

me fos fu [efi fm 
0 g 16 24 28 32 48 63 
LCONVERT (TOBITS) 

me fs fu defsfo fm 
0 g 16 24 28 32 48 63 
LCONVERT (TOBITS) 

me fas foo [eff 

0 g 16 24 28 32 47 

LCONVERT (TOBITS) 
ee 
0 | g 16 24 28 32 43 63 
LCONVERT (TOBITS) 

0 g 16 24 28 32 48 | 63 
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LCONVERT (TOBITS) 


m= [ss foo |r| 
8 16 24 28 


0 


32 


> 
~~] 


LCONVERT (TOBITS) 
m |e |, [sfafrm | 
oO g 16 24 28 #32 47 


LCONVERT (TOBITS) 


7 iL R, | R, | D, 


7) 

a 
¥ 
¥ 
7 
: 


— 
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N 
Be 
tro 
oo 
Ww 
ho 


47 
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O 
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= 

2 
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© 
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EZ ey 
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to 
© 
dp 
> 
we 
oo 
Ww 
— 


LDFLD | 
fs fo fret fo 
0. 8 14. 20 24 28 32 47 
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- 
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EZ 
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LDRA oe | | 

0 g 1620 «24 «228 + «32 48 | 63 
LDRA | — 
a Ee 
o. g 16 20 24 «2928 + © 32 48 63 
LDREG | 

he 

0 8 12 15 

LDSEG 

jos [|S 

0 g 12 15 

LDSEGC 

oe 

0 8 1215 

-LDSEGLN 

[ris 

0 — g 12 15 

LDSFP 

ro [rs 

0 8 1215 
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LEXIT 

6 [oo 

0 8 15 

LHRT 

as jeff 

0 8 12 16 31 

LHRT 

0 8 16 24 49-28 31 

LHRT 

0 8 16 24 «28 = 32 47 
LIFOFF 

jo [als |u|, [addres 
0 8 12 16 20 32 47 
LIFOFF 

jo [els |N |p, [address 
0 8 12 16 20 32 47 


Change bit switch (N) if no branch taken. 


S2 


48 63 


2 Es 
ob lS 
i: 
Me} 
ee 
i. 
w 
pd 
oe 
© 
ee 


i 
CN 


ae 
oo 


w 
Nw 
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LIFOFF (ELSE) 


[= Tel [sfe [mm [a 
0 8 . 


16 20 24 28 32 48 63 


LIFOFF 


8 16 20 24 28 | 


0 32 47 


LIFOFF (ELSE) 


| 8 16° 20 24 ~~» 28 


0 32 47 


LIFOFF 


LIFOFF (ELSE) 


mm sz fo |w|rifo fadiess |p, 
0 8 16 20 24 28 32 


48 63 


LIFON 

oe |s info, [adie 

) g 12 16 20 32 47 

LIFON : | 

0) 8 i216 = 20 32 aT 

Change bit switch (N) if no branch taken. 

LIFON | | 

) 8 16 20 24 #28 32 48 63 
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LIFON (ELSE) 


0 8 16 20 24 28 32 


43 63 


LIFON 
0 8 16 20 24 28 32 © 47 


oy 
june 
i 
© 
z. 
rs 
a 
wy) 
2 


0 a: 146 20 24 ~~ 28 


32 47 


LIFON 
jm [ss fo |w|rfo |adiws fp, 
0 8 16 20 24 28 32 48 63 


LIFON (ELSE) 


*Mask — 0 for normal LLOAD, 1 for expanded LLOAD 


LLOAD 


me js [+ fais fo fp 
0 8 16 20 24. 28 32 


*O0 for normal LLOAD; 1 for expanded LLOAD 


LLOAD 
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*Q for normal LLOAD; 1 for expanded LLOAD 


LLOAD 

0 8 16 20 24 28 32 47 
*Q for normal LLOAD; 1 for expanded LLOAD 

LMERGE 

0 8 12 15 

LMERGE 

0 g 12 16 31 

LMERGE 

19 |28 foo |r fo 

0 8 16 24 =. 28 31 

LMERGE 

9 |ss foo fra fo fp, 
) g 16 24 «28 «= 32 47 
LPOST 

25 so 
oO g 15 

LREAD (ST) 

he 

) 8 12 15 

LRETURN 
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LSEEK | 


© |e [ann 
6 31 


0 8 12 1 


LSEEK 

0 8 12 16 31 

LSEEK 

a 

0 8 12 16 32 47 
LSEEK 

Jo J~ [rn roma 

0 8 16 24 28 32 47 
LSEEKP 

«Fae 

8) 8 12 16 31 

LSEEKP 

CSC CMCC 

0 8 — 16 24 28 31 

LSEEKP 
[oe Je [apf 
0 8 16 24 28 32 47 
LSORT 

eels 

O 8 12 15 
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i 
Z 
Ea 
N 


© 


24 28 31 


LSORT 


| >) 
| 
> 
foe} co 
: 
—" 
a CO 
ie 
nN 
f 
we 


nN 
> 
N 
co 
Ww 
N 


47 


LTIME (ADJ) _ 
- 
0) 8 12 16 31 


< 
<< 
|S 
> 
Oo 
= 


© 
~] 
. 
i 
EZ 
dN 
i 
N 


| ond 
oy 
NO 
> 
nw 
co 
Ww 
i) 


47 


ET 


ll 


oo 
— 
N 
— 
fey) 
w 
— 


° nm 
a |e 
< 
cs 
a) 
ca 
Ww 
i 
nN 


cS 
= 
came} 
< 
co 
Q 
1 
3 
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0 8 16 24 28 32 47 
LTIME (SET) 

0 8 12 16 31 

LTIME (SET) 

0 8 16 24 28 31 

LTIME (SET) | 

ais foo frfo jo, 
0) 8 16 24 28 32 47 
LTIMEV 


8 16 24 28 32 48 63 


Oo 


LTIMEV 
0) 8 16 24 «28 «= (32 47 
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0 g «16 24 28 31 

LTRT 

fs fo |rfojm 
0 8 16 24-28 «= 32 47 
LWAIT 

2s fo 

0 g 15 

LWRITE (ST) 

pc fo fs 

0 g 12 15 


32 48 63 
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47 
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a 
he 
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nN 


N 
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47 
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Ww 
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47 
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a 
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ne 
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co 
oO 
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W 
foe] 
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i 
Ny 
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MPYREG 


oe [|e 


0 8 1235 


MPYZ 
afm fofulrfrin 
) 8 16 20 24 28 32 7 47 
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0 g 16 20 24 28 32 48 63 
MVCZ 

ja fee ufo frais fo 

0 8 16 20 24 28 32 47 

MVCZ 

a ee ee ee 
0 8 16 20 24 28 32 48 63 
MVCZ 
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MVCZ 


‘47 


oo] 
Le.¢) 
— 
a 
nN 
© 
NO 
px 
nN 
[o¢] 
Ww 
N 


0 8 


If only one byte of data is specified, X‘00’ is added in bits 40—47. 


MVDI 


ee eee 
g 16 24 «28 | 


0 
MVDI 


ee 
g 16 | 24 28 32 40 47 


0 


77 [st fofsfsjulm 
9) 8 16 20 24 28 32 


47 
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Appendix A. Machine Instruction Formats A-39 


MVFXD 

) 8 16 24 «28 «= 32 47 

MVFXD 

a Ee a 
0 g 16 24 #28 32 48 63 
MVFXD 

me fe fo feria fe 
) g 16 24 «28 «~=—(32 48 63 
MVFXD 

) g 16 24 28 32 47 

MVFXD 

ee ee ee 

0 g 16 24 28 32 47 

MVFXD 

FE ce LL 

) 8 16 24 «28 8632 47 

MVFXD 

a ee ee 

0 g 16 24 =. 28 31 
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MVFXDR 

x, 
0 8 16 24 28 32 48 63 
MVFXDR 

eee 

0 8 16 24 28 32 47 

MVFXDR 

0 g 16 24 28 32 48 63 
MVFXDR 
ee 
0 3 16 24 28 32 48 63 
MVFXDR 

me |ss foo [eff 

0 8 16 24 28 #32 47 

MVFXDR | 
ee 

0 8 16 24 28 32 47 
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Nr 
> 
Cy 
fo] 
w 
N 


47 
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a le ole 
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w 
iy 
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N 
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we 
Le 
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vw 
So 
Ww 
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NO 
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Ww 
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R 
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8 12 15 


= ~_ #j< as) 
Nm [> NN | > 
1G "18 
= go 
| >) 

| “ ; 

te 
— N 
A 


PR 
-) 
> 
ee 
ic) 


co) TN oO 
*k 7 
> 
= 
co) 
ie 
nN 
ji 
7 
No 


— 
nN 
No 
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—~] 

O) 
aca 

a1 WN 

N 
f 
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N 
00 
Ww 
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47 


~] 
CO) 
coal 
Ez 
NS 
f 
to 


47 


oe] 
i 
ON 
to 
© 
Led 
> 
NO 
co 
w 
N 


6 


ro) TN fo) 

a") 
> 
o 

ca 

S) 

f 

N 


SCRPAD 
79 [os foo |rafo 
0 g 16 24-28 31 
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SCRPAD 
79 [1s foo fro fp, 
9) 8 16 24 28 32 47 
SEGALLOC 
afew fe fa lo fm 
0 8 16 24 28 32 47 
* = 02 if the WAIT Parameter = Y 

OA if the WAIT Parameter = N 
SEGALLOC 
a fs |= [fo 
0 8 16 24 + =28 31 
* = 02 if the WAIT Parameter = Y 

OA if the WAIT Parameter = N 
SEGALLOC 
0 8 16 24 28 32 47 


* = 02 if the WAIT Parameter = Y (default) 
OA if the WAIT Parameter = N 


SEGCOPY 
er [sds |e je 


0 8 12 16 20 31 


* Mask — 0 = copy toS,; 1 = copy from S, 


SEGCOPY 
A Ce 
0 8 16 20 24 28 32 47 


*Mask — 0 = copy toS,; 1 = copy fromS, 
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*Mask — 0 = copy toS,; 1 = copy from S, 


7 fs fe ffm fo fp 
0 8 16 20 24 28 32 


47 


N 
ti 
7) 
2) 
eo) 
ac) 
me 


*“Mask — 0 = copy toS,; 1 = copy from S, 


8 16 24 28 32 47 


SEGFREE 

3 

0 g 16 24 28 31 

SEGFREE 

a [oo fos fro fp, 
0 3 16 24 28232 AT 
SELECT | 

is foo 

0 g 15 

SETFLDI 

0 2 16 24-28 ~=—(32 48 63 
SETFLDI 

0 g 16 24-28 31 
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0 g 16 24 «28 =~ 32 48 63 
SETFPL 
) g 12.15 


The above instruction format is generated if neither the primary field pointer (PFP) nor the field length 
indicator (FLI) is numeric. | 


SETFPL 
sis fxfr ie 
0 8 12 16 24 31 


The above instruction format is generated if neither the primary field pointer (PFP) nor the field length 
indicator (FLI) is specified with register notation. 


SETFPL 


The above instruction format is generated if the primary field pointer (PFP) is not specified with register 
notation, and the field length indicator (FLI) is specified with register notation. 


The above instruction format is generated if the primary field pointer (PFP) is specified with register notation, 
and the field length indicator (FLI) is not specified with register notation. | 


The above instruction format is generated if both the primary field pointer (PFP) and the field length indicator 
(FLI) are specified with register notation. 
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F 


On 


eS DN = Tr 
3 a 
PN hj 
Sl Kg 
a”) mo 


16 


NO 
© 
Ea 
Ea 


N 
eo) 
ae 
NM 
rs 
rg 


ND 
NO 
i 


© oO 
i: 7 
ND =) 
SK 
sl 
a, 
Ea 


[> 9] 
—" 
N 
pm, 
tA 


P[ 
ie 
“4 
~. 
e) 
= 


a 8 12 16 31 
SETX (ON) 

9 |2c foo | fo 
6) 8 16 24 28 31 


[cm 
jie 
! 


> 
~~ 
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SHIFTL 

as [af 

0 8 12 AS 

*Count value = 0-15 for shift positions 1-16 
SHIFTR 

aa fd 

0 g 12 15 

*Count value = 0-15 for shift positions 1-16 
STATS 

je eff 

0 8 12° 16 31 
STFLD 

oe fs ft fh 

0 8 12 16 20 31 
STFLD 

x fie fo ffs ff 
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STFLDC 

> le 

0 8 12 16 20 31 

STFLDC 
EC 
0 16 20 24 28 32 47 


afer foie fafa 
a2 47 
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SUBFLD 

0 g 16 20 24 28 31 

SUBFLD 

fs fof frfulpy 
0 g 16 20 24 28 32 47 
SUBFLDL 

0 8 16 20 24 28 32 47 
SUBFLDL 

0 3 16 20 24 «28 31 

SUBFLDL 
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SUBZ 


0 8 16 20 24 28 32 48 63 
SUBZ 

ee ee 
) 8 16 20 24 28 32 47 
SUBZ 

nfo fo jufs|rfo 
0 8 16 20 24 28 32 47 
SUBZ 

afm fo fufe fri 
) 8 16 20 24 28 32 47 
SUBZ 

fa fo [Rie 

0 8 16 24 28 31 
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TESTX 

0 g 16 24 = 28 31 

TESTX 

79 |e foo |efo fp, 

9) 8 16 24 28 32 47 

TSTMSK : 

0 g 12 16 24 36 47 

TSTMSK 

efor fu [sf fo 
9) 8 16 24 28 32 48 63 
TSTMSK | | | 

me fu fu fafsfo fo 
0 8 16 24 28 32 | 48 63 
TSTMSK 

0 g 16 24 28 32 | 47 

TSTMSK 

eT ee 
9) g 16 24 28 32 48 63 
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TSTMSK 


me fa fe deff fm 
0 8 16 24 28 8 63 


32 4 


TSTMSK 


me fst fo dR pR 
0 8 28 


2 
16 24 32 47 


TSTMSK 
Ee a 
0 8 16 24 28 32 47 
TSTMSK 
Ee 
8) 8 16 24 28 32 47 


TSTMSK 


me fs foo || R 
8 


0 16 24 28 31 


T 


I, 
32 40 47 
2 


Ca 


I, 
3 48 56 63 


STMSKI | 
5 2 Ls 
0 8 12 16 20 
TSTMSKI 
4 26 Oe ay 
0 8 16 24 28 


TSTMSKI 


0 8 16 24 28 32 40 47 
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TSTMSKI 


0 "3 16 24 «+28 32 48 56 63 
UPKFLD 

a> fs fsiufm 

0 g 12 16 20 31 

UPKFLD 

77 fae fo fs is fufp 
0 g 146 20 24 28 32 47 
UPKFLD 

77 [as fo fs [Rafo 

0 8 16 20 24 °&2831 

UPKFLD 

7 {se fols|mfulp 
0 g 16 20 24 28 32 47 
UPKSEG 

pc [si [s. 

0 8 1215 

VERIFY 

[sis [p 

0 g 12 16 31 
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0 g 16 20 24 28 32 47 
VIEW 

9 foe foo [fo 

) 8 16 24 = 28 31 

VIEW 

fie foo [Rofo 
0 g 16 24-2832 47 
VIEW 

fae fo [ss fo jp 
0 8 16 24 «28232 47 
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Appendix B. COPY Files 


This appendix gives detailed listings of the system definitions that are 
appropriate for this book. 


Copy files may be included in your program by coding a COPY instruction 
specifying one of the copy file names in this appendix. For example: 
COPY DEFCPL 


You must code either an EQUATE or an LDSECT instruction before the 
COPY instruction to define a segment or register number for the following 


copy files: 

e DEFCPL 
e DEFDCP 
e DEFELP 
e DEFESP 
e DEFFAP 
e DEFINT 
e DEFMER 
e DEFSCA 
e DEFSCP 
e DEFSKP 
e DEFSOR 
e DEFTRP 
e DEFTRT 
e DEFTSX 
e DEFVUE 


If you code an EQUATE instruction, for example: 


DEFCPLS EQUATE n 


then the copy file will contain a series of DEFLD instructions. The number 
that you specify in the EQUATE instruction will become the segment number 
(the first operand) of each DEFLD. 


Note: The segment number must be equated to a specific label; these labels are 
identified for each copy file. 


If you code an LDSECT instruction and specify the BASE= operand, for 
example: 


LDSECT BASE=n 
COPY DEFCPL 
LEND 


then the copy file will contain a series of DEFRF instructions. The number 


that you specify in the BASE= operand of the LDSECT instruction will 
become the register number (the first operand) of each DEFRF. 
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If you code an LDSECT and the BASE= operand before the COPY DEFAPB 
‘instruction, then the DEFAPB copy file will contain DEFRF instructions and 
the register number will be as specified by the BASE= operand. Otherwise the 
DEFAPB copy file will contain DEFLD instructions and the segment number 
will be 14. | 

You do not need to code anything before the COPY instructions for the 
DEFREG and DEFSEG copy files because they contain only EQUATE 
instructions. 

The following copy files always become part of the segment specified: 

Copy File Segment 

DEFAPB 14 

DEFGMS 15 

DEFRGS 0 


DEFSMS 1 
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DEFAPB 


Segment 14 Fields 


DEFAPB 
APBRLD DEFxx G.2 APB ROOT LENGTH OR ROOT CONSTANT LEN 
APBXIT  DEFxx 2 LEXIT INSTRUCTION 
APBPID DEFxx 8 APB NAME 
APBGID DEFxx 6 APB GENERATION DATE 
APBVER  DEFxx al APB VERSION NUMBER 
APBLVL  DEFxx oA APB LEVEL NUMBER 

DEFxx 4 RESERVED 
APBLTH  DEFxx 2 LENGTH OF SEGMENT 14 
APBROD DEFxx ) POINTER TO RESIDENT OVERLAY 

DIRECTORY 

APBFLG  DEFxx 1 FLAG BYTE: 
APBMVO  DEFxx APBFLG, 1 OPTION FLAG 
APBMVOM EQUATE X'O1! OPTION FLAG MASK 
APBSPR  DEFxx 1 RESERVED 
APBSUE DEFxx 2 STARTUP ENTRY POINT 
APBAPC DEFxx 2 APCALL ENTRY POINT 
APBPCE DEFxx 2 PROGRAM CHECK ENTRY POINT 

DEFxx 2 RESERVED 
APBAPI DEFxx 2 ASYNCHRONOUS ENTRY POINT - POST 
APBATE  DEFxx 2D ASYNCHRONOUS ENTRY POINT - TERMINAL 
APBACE DEFxx 2 ASYNCHRONOUS ENTRY POINT - CPU 
APBASE DEFxx {2 ASYNCHRONOUS ENTRY POINT - STATION 
APBTME DEFxx 2 ASYNCHRONOUS ENTRY POINT - TIMER 
APBALA DEFxx 2 ASYNCHRONOUS ENTRY POINT - ALA 
APBPCL DEFxx 2 RESERVED 
APBIVN  DEFxx sD 1ST HWD OF INSTR SECTION ADR 
APBIAD DEFxx 52 2ND HWD OF INSTR SECTION ADR 
APBSDT  DEFxx 30 SEGMENT DEFINITION TABLE ADDR 
APBDEL DEFxx 2 DELIMITER TABLE ADDRESS 

DEFxx ,10 RESERVED 
APBFUI DEFxx ,0 FIRST USER CONSTANT OR INSTRUCTION 


Segment 14 contains the following fixed fields generated by the BEGIN 
instruction of the application program: 


Length of Root Section (APBRLD): The length of the root section of the 
controller application program. 


Exit Instruction (APBXIT): An LEXIT instruction executed by the controller 
when the logical work station must be forced to give up control. 


Application Program Name (APBPID): An 8-byte character field containing 
the application program’s name. 


Month, Day, and Year Assembled (APBGID): A 6-byte character field 
containing the date specified in the BEGIN instruction (the DATE operand). 


Version Number (APBVER): A 1-byte character field containing the version 
number of the application program. 


Release Level (APBLVL): The application program assembly release level. 
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B-4 


Total Length of Program (APBLTH): The length of the largest aggregate of. 
root section and overlay sections. 


Resident Overlay Directory Pointer (APBROD): The address of the beginning 


of the resident overlay directory. 
Flag Byte (APBFLG): Reserved for system use. 


Startup Entry Point (APBSUE): The address of the startup entry point, if 
specified. 


Calling Entry Point (APBAPC): The APCALL entry point address, if 
specified. | 


Program Check Entry Point (APBPCE): The address of the program check 
entry point, if specified. 


Asynchronous Post Entry Point (APBAPI): The address of the application 
program entry point to be used by LPOST, if specified. 


_ Asynchronous Terminal Entry Point (APBATE): The address of the terminal 


entry point, if specified. 


Asynchronous CPU Entry Point (APBACE): The address of the host processor 
entry point, if specified. | | 


Asynchronous Station Entry Point (APBASE): The address of the station entry 
point, if specified. 


Asynchronous Timer Entry Point (APBTME): The address of the application 
program entry point to be used when a work station is dispatched because the 
work station Segment 1 timer value (SMSTMR) is less than or equal to the 
value in the controller’s timer (contained in the GMSTMR field in Segment 
15). 


Optional Host Link Entry Point (APBALA): Address of the feature host 
processor (non-SNA/SDLC) link entry point. 


Instruction Section Address (APBIVN/APBIAD): A 4-byte field containing the 
application root section address. 


Segment Definition Table (APBSDT): Displacement of the SDT, created by 
DEFSTOR, in Segment 14. 


Address of Delimiter Table (APBDEL): The address of the delimiter table, if 
specified. 


Application Program (APBFUD: The first constant or instruction in the 
application program. 
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DEFCPL 


DEFDCP 


Equate DEFCPLS to a segment number. 
DEFCPL 


CPLPAR DEF XX $,19 
CPLINS DEF XxX CPLPAR, 2 


CPLIND DEF XxX $,2 
CPLINL DEFXxX S,2 
CPLOUS DEFXx S,2 
CPLOUD DEFXX S,2 
CPLOUL DEFXX s,2 
CPLPRI DEFXX S,1 
CPLFLG DEFXx S,1 
CPLFCT EQUATE xX'80' 
CPLFCR EQUATE xX'40' 
CPLTBS DEFXX S,2 
CPLTBD DEF XxX S,2 
CPLTST DEF XX S,1 
CPLTOV EQUATE xX'80'! 
CPLTIL EQUATE xX'40' 


Equate DEFDCPS to a segment number. 


DEFDCP 
DCPPAR DEFxx  s,19 


DCPINS DEFXX DCPPAR, 2 


DCPIND DEF XxX S,2 
DCPINL DEFXx S,2 
DCPOUS DEFXxX S,2 
DCPOUD DEFXx S,2 
DCPOUL DEFXx S,2 
DCPPRI DEF XX s,1 
DCPFLG DEFXxX s,1 
DCPFCT EQUATE xX'80' 
DCPTBS DEFXX S,2 
DCPTBD DEF Xx Ss,2 
DCPTST DEFXX S,1 
DCPTOV EQUATE xX'80' 
DCPTIV EQUATE xX'40' 
DCPTCE EQUATE X'20' 
DCPTSL EQUATE X'10' 
DCPTIL EQUATE xX'0O8! 


COMPRESS/COMPACT PARMETER LIST 
SEGMENT CONTAINING INPUT AREA 
DISPLACEMENT TO INPUT AREA 
LENGTH OF INPUT AREA 
SEGMENT CONTAINING OUTPUT ARE 
DISPLACEMENT TO OUTPUT AREA 
LENGTH OF OUTPUT AREA 
PRIME COMPRESSION CHARACTER 
INPUT FLAG BYTE 

PERFORM COMPACTION 

PERFORM COMPRESSION 
SEG CONTAINS COMPACT TABLE IN 
DISPLACEMENT TO TABLE AREA 
TERMINATION STATUS 

OUTPUT OVERFLOW 

INITIAL INPUT LENGTH IS 

ZERO 


DECOMPRESS/DECOMPACT PARAMETER 
LIST 
SEGMENT CONTAINING INPUT AREA 
DISPLACEMENT TO INPUT AREA 
LENGTH OF INPUT AREA 
SEGMENT CONTAINING OUTPUT AREA 
DISPLACEMENT TO OUTPUT AREA 
LENGTH OF OUTPUT AREA 
PRIME COMPRESSION CHARACTER 
INPUT FLAG BYTE 
INPUT DATA IN COMPACT 
CODE 
SEGMENT CONTAINING DEC TABLE 
DISP TO DECOMPACTION TABLE 
TERMINATION STATUS 
OUTPUT OVERFLOW 
INPUT OVERFLOW 
COMPACT CODE INPUT 
SCB COUNT FIELD IS ZERO 
INITIAL INPUT LENGTH IS 
ZERO 
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DEFELP 


Equate DEFELPS to a segment number. 


DEFELP 
ELPARM DEFXxX s,14 ENTIRE PARAMETER LIST 
ELPOVN DEFXX ELPARM ,8 OVERLAY NAME 
ELPFLG DEFXxX s,1 SECTION LOAD FLAGS . 
ELPCSF EQUATE X'80' LOAD CONSTANT SECTION 
ELPISF BRQUATE X'40' LOAD INSTRUCTION SECTION. 
ELPSEG DEF XX Ss, 1 CONSTANT SECTION SEGMENT NUMBER 
EBELPCLA DEF Xx S52 CONSTANT SECTION LOAD ADDRESS 
ELPILA DEFXX s,2 INSTRUCTION SECTION LOAD ADDRESS 
| DEFESP 
Equate DEFESPS to a segment number. 
DEFESP 
ESPREQ DEFxx I REQUEST CODE 
ESPFLG DEFXxX yf OPTION FLAGS 
ESPRST ROQUATE X'80' RESET COUNTER AFTER READOUT 
ESPNXT EQUATE x'40! REQUEST NEXT COUNTERS DATA 
ESPEID DEFXxX ,2 EXTENDED COUNTER ID | 
ESPDID DEFXX me. DEVICE ID 
ESPTOT DEFxx ,6 TOTAL BYTES 
ESPERR DEFxx 4 ERROR BYTES 
ESPNDV DEFXX 11 NUMBER OF DEVICES ASSIGNED 
ESPSTD DEFXX ESPEID,2 DEVICE STAT CTR ID 
ESPTYP DEFXxX fil DEVICE TYPE CODE 
ESPFEA DEFxx | FEATURE FLAGS © 
ESPSTA DEFXX P| ASSIGNED STATION ID 
ESPNCT DEF XxX eo NUMBER OF COUNTERS 
ESPSCTR DEFxx ,22 BYTE COUNTERS 


* 


* * * * DEFINITION OF FEATURE FLAGS IN ESPFEA 
* 


* LOOP (DEVICE TYPE X'80' 
* 


ESPLPCLK EQUATE xX'80' CLOCKING LOOP 
ESPLPO6 EQUATE x'08' 600 BPS SPEED 
ESPLP12 EQUATE x'O4! 1200 BPS SPEED 
ESPLP24 EQUATE. x'02' 2400 BPS SPEED 
ESPLP48 EQUATE X'O1' 4800 BPS SPEED 


* 
* COMMON FOR ALL LOOP ATTACHED DEVICES 
* 


ESPFFRA EQUATE x'08' READ OPERATION DEVICE 
ESPFFWA EQUATE xa WRITE OPERATION DEVICE 
ESPFFSA EQUATE x102" SHARED ADDRESS SLOT DEVICE 
ESPFFSO EQUATE X01 SHARED OPERATOR DEVICE 

% 

* FLAGS THAT ARE DEVICE DEPENDENT 

* 

* 3604 DISPLAY 


ESPDSCUR EQUATE X'80' CURSOR SET ON AT DEVICE INITIALIZATION 


* 
* 3604 KEYBOARD 


ESPKBCUR EQUATE X'80' CURSOR IS NOT SET ON/OFF AT READ TIME 
ESPKBERT EQUATE X'40' ERTSL OPTION 
ESPKBPIN EQUATE’ X'10' PIN PAD AVAILABLE AND USED 
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| DEFFAP 


DEFGMS 


* 


* 3610/3612 DOCUMENT PRINTER 


ESPPRPFT EQUATE 
ESPPRACT EQUATE 


* 


* 3618 ADMINISTRATIVE PRINTER 


ESPADEPL EQUATE 
ESPADDFF EQUATE 
* 


x20," 
x'10! 


X'80' 
X'20' 


PIN FEED TRACTOR 
AUTOMATIC CUT FORM MODE 


EXPANDED PRINT LINE 
DUAL FORMS FEED 


Equate DEFFAPS to a segment number. 


DEFFAP 
FAPARM 
FAPAPN 
FAPFLG 
FAPCLR 
FAPTRN 


FAPFCN 


FAPAPCNT 
FAPASTOR 
FAPSSTOR 
FAPCSTOR 
FAPSTATS 


FAPCAL 
FAPLOD 
FAPWAT 
FAPCSH 


FAPTTL 
FAPSTOR 
* 
FAPSTQ 
FAPSTN 
FAPCBY 
FAPCBN 
FAPCUR 
FAPSMAX 
FAPSAPC 
FAPSRCL 
FAPSREQ 
FAPSCMB 
FAPSDEC 
FAPSSCN 
FAPSMOV 


FAPSLNG 
FAPSWTC 


FAPSWTS 
FAPSWTO 
* 


DEFGMS 


GMSTMR 
GMSHTM 
GMSLTM 
GMSWTM 
GMSHRT 


DEFXX 
DEFXX 
DEFXx 
EQUATE 


EQUATE 


DEFXxX 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
DEFXx 
DEF XX 
DEFXxX 
DEF XX 
DEFXxX 
DEF XX 
DEFXX 


DEFXX 
DEF XX 
DEFXx 
DEF XX 
DEFXx 
DEFXx 
DEFXX 
DEF XX 
DEFPXx 
DEFXx 
DEF XxX 
DEFXx 
DEFXx 


DEF XX 


DEFXX 
DEFXX 
DEFXx 


DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 


2 


td 
FAPCAL, 1 


FAPSTOR, 1 


#1 


MONMNMMNMNMNN WWD hd 


So i | a | ~ = 


15,0,4 
15,0,2 
15,,2 
15,,4 
15,,2 


ENTIRE PARAMETER LIST 
AP NAME 
REQUEST/RESPONSE FLAGS 
INPUT: READ=0 / READ, 
RESET=1 
OUTPUT: RESIDENT=0 / 
TRANS TIENT=1 
FUNCTION CODE 
GET AP USAGE COUNTS 
GET AP STORAGE USAGE 
GET STATION STORAGE USAGE 
GET POOL STORAGE DATA 
GET POOL STATISTICS 
NUMBER OF CALLS MADE 
NUMBER OF LOADS FROM DISKETTE 
NUMBER OF WAITS FOR BUFFER SPACE 
POOL ID/STATION ID 
RESERVED 
POOL SIZE IN BYTES 
STORAGE OWNED BY STATION OR AP 
OR IN USE BY A POOL 
CURRENT LENGTH OF WALT QUEUE 
STATION CURRENTLY OWNING THIS POOL 
COMBINE INITIATE THRESHOLD 
COMBINE INHIBIT THRESHOLD 
CURRENT BYTES IN USE 
MAXIMUM BYTES IN USE 
COUNT OF APCALLS/DTACCESSES 
TOTAL NUMBER OF RECLAIMS 
TOTAL NUMBER OF REQUESTS 
NUMBER OF SEGMENT COMBINES 
NUMBER OF SEGMENT DECOMPOSES 
AVG SCAN TO SATISFY A REQUEST 
AVG # BLOCK MOVES IN SHORT GARBAGE 
COLL 
AVG SUCCESS RATIO FOR LONG GARBAGE 
COLL 
COUNT OF NUMBER OF POOL WAITS 
AVG # SECONDS WAITING FOR POOL 
AVG LENGTH OF WAIT QUEUE 
AMOUNT IN USE BY POOL 


GLOBAL SEGMENT 15 TIMER 
HIGH ORDER 2 BYTES OF TIMER 
LOW ORDER 2 BYTES OF TIMER 


CONTROLLER WAIT TIME (IN SECONDS ) 


HIGH RESOLUTION TIMER 
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GMSMFS 

GMSMTDM 
GMSMDCM 
GMSMBLM 
GMSMHLM 
GMSMHOM 
GMSMH1M 
GMSMH2M 
GMSMH3M 
GMSMH5M 
GMSMH6M 
GMSMH7M 
GMSMH8M 


GMSDSM 
GMSMSZ 


GMSFTR 

GMSFEDM 
GMSFSMM 
GMSFSDM 
GMSFoAM 
GMSFSLM 
GMSFo8M 
GMSFDEM 
GMSFMTM 
GMSF20M 


GMSF25M 
GMSF21M 
GMSFODM 
GMSF26M 
GMSF70M 
GMSF24M 
GMSF27M 


GMSFT2 
GMSF2AM 
GMSF2CM 
GMSF2DM 
* 
GMSF28M 
GMSF31M 
GMSF32M 
GMSF40M 
GMSF41M 
GMSF29M 
GMSF34M 
GMSF36M 
GMSF42M 
GMSF2FM 
GMSFB7M 


GMSCUA 

GMSLID 

GMSL48M 
GMSL96M 
GMSLO2M 
GMSLO5M 
GMSLO7M 
GMSLO8M 
GMSLO9M 


DEFLD 

EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


DEFLD 
DEFLD 


DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


DEFLD 

EQUATE 
EQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
DEFLD 


DEFLD 
DEFLD 

EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


ipower 

X'2000' 
X'1000' 
X'0700' 
X'OOFO' 
X'O000' 
xX OOLO. 
X'0020' 
X'0030' 
X'0050' 
X'O0060' 
X'0070' 
X'0080! 


Lope 


if 


15,,2 
x'g8000' 
X'2000' 
x'1000' 
Xx'0800' 
X'0400' 
X'0200' 
x'0100' 
x'0080' 
x'0040" 


X'0020' 
X'0010' 
X'0040' 
X'0008' 
X'0004' 
X'0002' 
X'O001' 


Loge 

X'8000' 
X'2000' 
x'1000'! 


X'0800' 
X'0400' 
X'0200' 
x'0100' 
x'0080' 
X'0040' 
X'0020' 
X'0010' 
X'0008' 
X'0004' 
X'0002' 
Saye 


15,,1 
15,,1 
X'0O1! 
X'02' 
X'02' 
X'05' 
X'07! 
x'08' 
X'09! 


MACHINE FEATURE SWITCHES : 
TWO DISKETTE ADAPTERS 
DCA ADAPTER 
MASK TO EXTRACT NUM OF B-LOOPS 
MASK TO EXTRACT HOST LINK TYPE: 
NO HOST LINK 
HPCA - X.21 SWITCHED 


HPCA - EIA 
HPCA - MULTI USE LOOP 
CCA -- EIA 


HPCA -— X.25 EIA 
HPCA - X.21 LEASED 
HPCA = Xe25 KZ] 


RESERVED FOR SYSTEM USE 
NUMBER OF 64K SECTIONS OF MEMORY 


OPTIONAL MODULES LOADED FLAGS: 
ENCODE/DECODE (AET ) 
LSORT/LMERGE 
SETDSKT 
OTARTER ADAPTER DIAGS MASK 
ALTERNATE LINE MASK 
SCALE/SETX.../TESTX 
ENCODE/DECODE (DES ) 

DISKETTE MULTI-BLOCK I/O MASK 
THIS FLAG IS ALWAYS SET, AS 
LCHAP IS IN THE BASE 


STATS 

LTRT 

LEFT FOR IR COMPATIBILITY 
DECOMP/DECOMPTB 

DATA STREAM MANAGEMENT 
LSEEKP 

COMP/COMPTB 


OPTIONAL MODULES LOADED FLAGS: 
SCRPAD 
INTMR 
THIS FLAG IS ALWAYS SET, AS 
LLOAD WITH PARM=EXP IS IN BASE 
SECURITY INSTRUCTIONS 
ZONED DECIMAL INSTRUCTIONS 
LTIMEV INSTRUCTION 
FORMDKT 
COMPDKT 
TRANSIENT APCALL/APRETURN 
LCONVERT/CRETN 
DTACCESS/SEGALLOC 
DPOOL 
FORMDSK 
DISK MULTI-BLOCK I/O MASK 
RESERVED 


CONTROL UNIT ADDRESS 
COMMUNICATION LINK ID: 
4800 BPS 
9600 BPS 
4502 -— SNA/SDLC 
1422 - BSC 
5656 - X.21 
4850 - MULTI-USE 
8V0134 - X.25 
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GMSRES 1 
GMSBLN 
GMSMOD 
GMSDEF 
GMSSDI 
GMSTAB 
GMSSPR 
GMSLOP 


GMS IND 

GMSTLDM 
GMS ILRM 
GMSIWSM 
GMSIDSM 


GMS ISMM 
GMS TDCM 
GMS IMAM 


GMSFLG 
GMSFPCM 
GMS ID2M 


GMSD2 PM 
GMSCSCM 
GMSAPCM 


GMSBSN 


GMSBSA 
GMSBSD 
GMSBSD2 


GMSPRI 


GMSTYP 
GMSITYM 
GMSID1M 
GMSIDT2M 
GMSTD2DM 


GMSSTYM 
GMSST1M 
GMSST2M 
GMSST2DM 


GMSSID 


GMSDKTP 
GMSDSK1 
GMSD1LM 
GMSD1SM 
GMSDSK2 
GMSD2LM 


GMSCSN 


GMSMFS3 
GMSAL1M 
GMSM1SM 
GMSM1AM 


DEFLD 
DEF LD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 


DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 


DEFLD 
EQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 


DEFLD 
DEFLD 


DEFLD 
DEFLD 


DEFLD 
DEFLD 


DEFLD 


DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 
EQUATE 


DEFLD 


DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
DEFLD 
DEFLD 


DEFLD 

EQUATE 
EQUATE 
EQUATE 


15,,2 
15,,2 
15,,1 
15,,1 


15,GMSDEF, 1 


15,,2 
15,,1 
15,,1 


15,,1 
X'80' 
x'40!' 
x'20' 
X'10' 


x'04' 
x02? 
ON.” 


ps raral 
x, 80" 
X'40' 


Ke 20:" 
x10" 
x'08' 


15,,2 
15252 


15,,2 
15,,2 


apg 
15,,4 


15,,1 


15,,1 
X'FO! 
x'10!' 
x'20' 
X'30! 


X'OF' 
9 GueO a f 
x O2* 
x03" 


Lg pe 


15,,1 
X'FO! 
x'20' 
x'10! 
X'OF! 
X'02' 
(64 
15,,3 


comer et 
x Oe 
x20! 
x'40' 


RESERVED 

XID BLOCK NUMBER 

INPUT MSG ROUTING CONTROL 
DEFAULT STB ID IF DEFAULT USE 
CLEAR STB ID DISP IN MSG 
POINTER TO ROUTING TABLE 
RESERVED 

SUMMARY LOOP OUTAGE MAP 


GLOBAL INDICATOR BYTE: 
LOSS OF CONTACT MASK 
LINK DOWN MASK 
WARM START MASK 
2-SIDED DISKETTE ON PRIMARY 
DRIVE 
SYS MONITOR LOGGED ON AT 3604 
DISK CREATE IN PROGRESS FLAG 
MSG REQ ACTION WRITTEN TO LOG 


FLAG BYTE: 

MON PROC CMD IN PROG I/P MODE 

2-SIDED DISKETTE ON SECONDARY 
DRIVE 

SECONDARY DISK DRIVE PRESENT 

CNM SPECIFIED IN CONFIGURATION 

AP'S TO DISK REQ'TD IN CONFIG- 
URATION 


RESERVED 

CURRENT TF BLOCK NUMBER ON IPL 
DRIVE 

RESERVED 

CURRENT TF BLOCK NUMBER ON 2ND 
DRIVE 

CURRENT TF BLOCK NUMBER ON 1ST 
DISK 

CURRENT TF BLOCK NUMBER ON 2ND 
DISK 

PRIORITY DISPATCH (FLAG AND 
TABLE NUM) 


DISKETTE TYPE MOUNTED FLAGS 
MASK TO EXTRACT IPL DRIVE FLAGS 
TYPE 1 DKT ON IPL DRIVE 
TYPE 2 DKT ON IPL DRIVE 
TYPE 2D DKT ON IPL DRIVE 


MASK TO EXTRACT 2ND DRIVE FLAGS 
TYPE 1 DKT ON 2ND DRIVE 
TYPE 2 DKT ON 2ND DRIVE 
TYPE 2D DKT ON 2ND DRIVE 


SESSION ID 


DISK DRIVE FLAGS 

1ST DISK DRIVE CAPACITY MASK 

1ST DISK DRIVE IS LARGE CAPACITY 
1ST DISK DRIVE IS SMALL CAPACITY 
2ND DISK DRIVE CAPACITY MASK 

2ND DISK DRIVE IS LARGE CAPACITY 
RESERVED 

CONTROLLER SERIAL NUMBER 


ALA LINE 

MASK TO EXTRACT ALA LINE : 

ALA - SNAP (HPCA) ADAPTER 

ALA - START/STOP (CCA) ADAPTER 
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Segment 15 Fields 


B-10 


SMSMFS4 DEFLD 15,,1 °° | RESERVED 


GMSMFS5 DEFLD 1S RESERVED 
GMSMFS6 DEFLD 15,,1 RESERVED 

GMSIND2 DEFLD 15,,1 - GLOBAL INDICATOR BYTE 2: 
GMSILD2M EQUATE X'80! LINK2 LOSS-OF-CONTACT MASK 
GMSILR2M EQUATE X'4Q" LINK2 LINK DOWN MASK 

GMSCUA2 DEFLD 15,,1 LINK2 CONTROL UNIT ADDRESS 
GMSLID2 DEFLD 1539 LINK2 COMMUNICATIONS LINK ID 
GMSRES DEFLD (Seni RESERVED 


GMSFUF DEFLD ~TSipg? FIRST USER FIELD 


The following fields are in the fixed area of Segment 15. 


Controller Timer (GMSTMR): A timer with a resolution of 1 second. Any 
value set in this field is increased by 1 each second. Controller application 
programs can set and reset this field. 


Controller Wait Time (GMSWTM): The number of seconds the controller is 
waiting for work. Each time the controller accumulates 1 second of ‘waiting 
for work’, it adds 1 to the value in this field. © 


High Resolution Timer (GMSHRT): A timer whose value is increased by 1 
each 64 milliseconds. : 


Machine Feature Switches (GMSMES): Indicate the controller configuration, 
adapters, host link, and so on. Bit patterns are as follows: 


Bit Position Meaning 

XX 1X XXXX XXXX XXXX Two diskette adapters present 
XXX 1 XXXX XXKX XXXX DCA adapter 

XXXX XNNN xxxx xxxx NNN = Number of B-Loops 

XXXX xxxx 0000 xxxx No host link 

XXXX Xxxx 0001 xxxx Host link is HPCA - X21 Switched 
XXXX xxxx 0010 xxxx Host link is HPCA - EIA 

XXXX XXxx 0011 xxxx Host link is HPCA - Multi Use Loop 
XXXX Xxxx 0101 xxxx Host link is CCA - EIA 

XXXX XxXxx 0110 xxxx Host link is HPCA - X25 

XXXX xxxx QO111 xxxx Host link is HPCA - X21 Leased 
XXXX Xxxx 1000 xxxx Host link is HPCA - X25 - X21 
XXXX XXXX XXXX 1xxx First disk drive present 

XXXX XXXX XXXX X1xx Second disk drive present 


Reserved Field (GMSDSM): A 1-byte field reserved for system use. 


Memory Size (GMSMSZ): The number of 64K sections of main storage in this 
controller. 


Features Flag Fields (GMSFTR/FT2): Two 2-byte fields that have bits set to 
indicate the optional modules loaded in the controller. 
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Control Unit Address (GMSCUA): SDLC control unit address. 


Communication Link ID (GMSLID): A one-byte field indicating which 
controller communication link access method was loaded as follows: 


Hex Value: Meaning: 

02 SNA/SDLC 
05 BSC3 

07 X.21 

O08 Multiuse loop 
09 X25 


SNA Node Identification Block Number (GMSBLN): A 2-byte field containing 
the IBM-assigned SNA node identification block number. 


Input Message Routing Control (GMSMOD): Reserved. 
Default Station ID (GMSDEF): Reserved. 
Routing Table Pointer (GMSTAB): Reserved. 


Loop Outage Indicator (GMSLOP): Indicates loops that did not start 
successfully, or have failed after start. A bit set to 1 indicates that the 
corresponding loop is not operational. Bits 0 — 3 correspond to loops 1 — 4 
with bit 0 = loop 1. Bits corresponding to loops specified in the configuration 
for this load image are initially set to 1. As a loop starts successfully, its bit is 
set to 0. When a running loop becomes nonoperational, its bit is set to 1. This 
field can be queried by the application program and messages issued to the host 
control operator if a loop fails to start or becomes nonoperational. 


Global Indicator (GMSIND): The status of the communication link and 
controller communication adapter, and whether the current controller startup 
was a warm Start or a cold start, whether a one-sided or two-sided diskette is 
currently mounted in the controller plus other information. Bit patterns are as 
follows: 


Bit Position Meaning 

Olxx xxxx Link is running (adapter enabled) 

11xx xxxx ~ Loss of contact (adapter enabled) 

XOXX XXXX Adapter disabled (contact bit ignored) 

XX 1x XXxx Warm start 

xxOx XXxx | Cold start 

XXX1 Xxxx Two-sided diskette mounted in primary drive 

xxxQ Xxxx One-sided diskette mounted in primary drive 

XXXX X1xx System monitor logged on to 4704/3604/3278 
_ XXxx xxix ' Diskette create in progress 

XXXX Xxxl Message written to log 
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Flag Field (GMSFLG): A 1-byte flag field: | 


Bit Position Meaning 
1Xxx XXxx The system monitor is processing a command 
issued from a controller application program. 
X1XX XXXX A 2-sided diskette is in the secondary drive. 
XX 1X XXXX A secondary diskette is present in the configuration. 
XXX1 Xxxx CNM is specified in the configuration. 
XXXX 1xXxx User application program overlays can reside on disk. 


Current Temporary File Block Number (GMSBSN): The number of the 
temporary file block being used for new temporary file records on the primary 
diskette drive. 


Current Temporary File Block Sequence Number (GMSBSA): The number of 
the temporary file block being used for new temporary file records on the 
secondary diskette drive. 


Current Disk Temporary File Block Number (GMSBSD): The number of the 
temporary file block being used for new temporary file records on the first disk. 


Current Disk Temporary File Block Number (GMSBSD2): The number of the 
temporary file block being used for new temporary file records on the second 
disk. 


Priority Dispatching (GMSPRD: Bits 1 — 7 contain the ID of the priority 
dispatching table. Bit 0, when set to 1, indicates that priority dispatching is in 
effect for the table whose ID is in bits 1 — 7. 


Diskette Type (GMSTYP): A 1-byte field indicating the mounted diskette 
type. 


Controller Session ID (GMSSID): The number of times a system cold start or a 
SETDSKT-reset-Temporary-File has been performed using a specific diskette. 
Each cold start of the controller increments the session ID and erases the data 
in the diskette Temporary File. 


Disk Drive Flags (GMSDKTP): A flag byte indicating the disk 1 and 2 


capacities: 
Bit Position Meaning 
0010 xxxx First disk drive is large capacity. 
OOO1 xxxx First disk drive is small capacity. 
xxxx 0010 Second disk drive is large capacity. 
xxxx 0001 Second disk drive is small capacity. 


Controller Serial Number (GMSCSN): The unique identifier of the controller. 
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DEFINT 


ALA Line Field (GMSMEFS3): A 1-byte field describing the adapters attached 
to the ALA line, as follows: 


Bit Position Meaning 

0000 0000 No adapter 

0100 0000 ALA-Start/Stop(CCA) adapter 
0010 0000 ALA-SNAP(HPCA) adapter 


First User Field (GMSFUF): The first user-defined field in Segment 15. 


Equate DEFINTS to a segment number. 


DEFINT 
INTTMR DEFxx  s,16 INTERVAL TIMER PARMLIST 
INTSID DEFxx INTTMR, 1 WORKSTATION NUMBER 
INTTNO DEFxx  s,1 INTERVAL TIMER NUMBER 
INTREQ DEFxx  s,1 REQUEST TYPE 
INTSTRTM EQUATE X'00! REQUEST IS START TIMER 
INTSTOPM EQUATE X'0O1' REQUEST IS STOP TIMER 
INTSTPRM EQUATE X'11' REQUEST IS STOP & RETURN 
| INTERVAL 

INTREADM EQUATE X'02' REQUEST IS READ RESULTS 
INTRDRSM EQUATE X'03' REQUEST IS READ & RESET 
INTACTVM EQUATE X'04' REQUEST IS ACTIVATE TIMING 
INTDACTM EQUATE X'05" REQUEST IS DEACTIVATE TIMING 
* 
x THIS ENDS THE BASIC PORTION OF INTERVAL TIMER PARAMETER LIST 
* 
* 
x THE FOLLOWING FIELD USED WITH READ, READ & RESET, AND 
# STOP & REPORT RESULTS REQUESTS 
* 
INTFLG DEFxx  s,1 FLAG BYTE 

LSPACE 
INTDAVIM EQUATE X'80' TIMER IS DEACTIVATED FLAG 
INTSTARM EQUATE X'40! TIMER IS CURRENTLY RUNNING 
* 
x THE FOLLOWING FIELD USED WITH STOP & REPORT RESULTS REQUEST 
% 
INTLTH  DEFxx 5,3 LENGTH OF INTERVAL 
* 
+ THE FOLLOWING FIELDS USED WITH READ AND READ § RESET 
x REQUESTS 
INTMIN  DEFxx INTLTH, 3 SHORTEST INTERVAL 


LONGEST INTERVAL 
SUM OF ALL INTERVALS 
NUMBER OF INTERVALS 


INTMAX DEF XX 
INTTOT DEF XxX 
INTCNT DEF XX 


nn Nn 
hOB WwW 


I 
f 
i 
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DEFMER 


Equate DEFMERS to a segment number. 


DEFMER 


MERPAR 
MERIFB 
MERIFOM 
MERIF6M 
MERIF7M 
MERRFB 
MERRFOM 
MERRF 1M 
MERRF2M 
MERRF3M 
MERRF4M 
MERRF5M 
MERI1B 
MERI1E 
MERI2B 
MERI2E 
MERDLN 
MERKYD 
MERKYL 
MERIS1 
MERIS2 
MEROTS 
MEROTB 
MEROTE 
MERTIC 
MERI2C 
MEROTC 
MERUNT 


DEFREG 


B-14 


DEFREG 


*% 


DEFXX 
DEFXxX 
EQUATE 


REGISTER EQUATES 


EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


s,30 


MERPAR, 1 


X'80' 


OHnNNnNANNnNANNNANAHANANAN N 
NRNMNNMNNMNMN RRP RH RH NNNNN 


i i a a, Sa, i, i, i, i, a, Si, | 


WMAAAMEWNH—O 


10 


MERGE 
INPUT 


PARAMETER LIST 


FLAG BYTE 

BIT ON ---> DESCENDING KEYS 
BIT ON ---> INPUT BLOCK 1 NULL 
BIT ON ---> INPUT BLOCK 2 NULL 


RETURN FLAG BYTE 


INPUT 
INPUT 
INPUT 
INPUT 


OUTPUT BLOCK FULL 

INPUT BLOCK 1 EMPTY 

INPUT BLOCK 2 EMPTY 

SEQ CHK NOT ON MERGE UNIT BOUNDARY 
SEQ CHK ON MERGE UNIT BOUNDARY 
BOTH INPUT BLOCKS NULL 

BLOCK 1 BEGIN DISP 

BLOCK 1 END DISP 

BLOCK 2 BEGIN DISP 

BLOCK 2 END DISP 


DATA ITEM LENGTH 
DISP TO KEY IN DATA ITEM 
KEY LENGTH 


INPUT 
INPUT 


BLOCK 1 SEGMENT NUMBER 
BLOCK 2 SEGMENT NUMBER 


OUTPUT BLOCK ‘SEGMENT NUMBER 
OUTPUT BLOCK BEGIN DISP 
OUTPUT BLOCK END DISP 


INPUT 
INPUT 


BLOCK 1 CURRENT DISPLACEMENT 
BLOCK 2 CURRENT DISPLACEMENT 


OUTPUT BLOCK CURRENT DISPLACEMENT 


MERGE 


UNIT SIZE 


4700 Controller Programming Library, Volume 1: General Controller Programming 


DEFRGS 


DEFSCA 


DEFSCP 


DEFRGS 


* *K * 


REGISTER SECTION OF SEGMENT O 


DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 


Ooo CO COO OOO O00 0 
ee ee, ee ee, | 


i i i, i, i, a, i, i, i, an i, i, ie, iin | 
OF D OF OY) OF OV OF OF OF © OV OY OV 010 OY 


Equate DEFSCAS to a segment number. 


DEFSCA 


SCAPAR 
SCALEN 
SCACHR 
SCAFAC 
SCAINP 
SCAHDR 
SCADEL 
SCARES 
SCASIG 
SCABEG 


DEF Xx 
DEFXx 
DEFXX 
DEFXx 
DEFXX 
DEFXX 
DEFXxX 
DEF XxX 
DEFXx 
DEFXX 


s,18 


SCAPAR, 1 


NANNNNAN YN 


SCALE PARAMETER LIST 

LENGTH OF OUTPUT AREA 

SCALE CHARACTER 

SCALE FACTOR 

INPUT FLAG BYTE 

SPECIAL HEADER CHARACTERS 
DELETE CHARACTERS 

RESERVED (VALUE MUST BE 3X'OQO' ) 
NUMBER OF SIGNIFICANT DIGITS 
BEGINNING OF OUTPUT AREA 


Equate DEFSCPS to a segment number. 


DEFSCP 
SCPSTR 
SCPFC 


SCPINTR 
SCPADDR 
SCPRPLR 
SCPRTRR 
SCPRTUR 
SCPDLER 
SCPDLAR 
SCPARUR 
SCPARLR 
SCPEXCR 


DEF Xx 
DEFXx 


EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


s,0 
Ss, 1 


x Ok" 
x02 
ya Oe a 
X'04! 
x 05" 
x06; 
pas Gl 
X'25! 
me 23 
X'08' 


START OF PARAMETER LIST 
FUNCTION REQUESTED 


INITIALIZE SPA REQUEST 

ADD ELEMENT REQUEST 

REPLACE ELEMENT REQUEST 

RETRIEVE ELEMENT REQUEST 

RETRIEVE ELEMENT FOR UPDATE REQUEST 
DELETE AN ELEMENT REQUEST 

DELETE ALL ELEMENTS REQUEST 

ADD OR RETRIEVE FOR UPDATE REQUEST 
ADD OR REPLACE REQUEST 

EXCHANGE DATA AREA WITH THE ELEMENT 
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DEFSEG 


SCPTYP 


SCPKEYM 
SCPELMA 


SCPSPID 
SCPRC 


SCPRC80 
SCPRC40 
SCPRC20 
SCPRC10 
SCPRCO8 
SCPRCO4 
SCPRCO2 
SCPRCO1 
SCPRCOO 


SCPELMN 
SCPKEYL 


SCPDATPT 


SCPELMLN 
SCPELMNB 


oCPDSG 
SCPDDSP 
SCPEND 
SCPPRL 


DEFSEG 


* * 


DEFXX 


EQUATE 
EQUATE 


DEFXx 
DEFXX 


EQUATE 
EQUATE 


EQUATE 


DEFXX 
DEFXX 
DEFXX 


DEFXX 
DEFXxX 


DEFXX 
DEFXxX 
DEF Xx 
DEFXX 


s,1 ADDRESSING TYPE 


X'00' KEYED ADDRESSING 
x?'O1" ELEMENT ADDRESSING 
s,1 SPA ID 
S,1 SCRATCH PAD RETURN CODE 
X'80' 
X'40' 
x20" 
x 0? 
X'08' 
X'0O4' 
x02" 
X'O1' 
X'00' 
SZ ELEMENT NUMBER ADDRESS 
S,1 KEY LENGTH 
s,3 DATA AREA ADDRESS (SEGMENT, 
DISPLACEMENT ) 


SCPELMN,2 ELEMENT LENGTH 


s,2 NUMBER OF ELEMENTS ALLOCATED 
SCPDATPT, 1 

s,2 

s,0O END OF PARAMETER LIST 


SCPSTR, (D:SCPEND-D: SCPSTR ) 


SEGMENT EQUATES 


EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 


OANANAMEWNH-O 
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DEFSKP 


Equate DEFSKPS to a segment number. | 


DEFSKP 


SKPPAR 
SKPFLG1 
SKPFPA 


* 


* 


SKPFBS 


* 


* 
SKPFTI 
* 
* 


* 
* 


SKPFCE 


* 


* 
SKPFEQ 
* 


* 


OKPFBL 


* 


*% 


SKPFBG 


% 


SKPFLG2 
SKPFNS 
* 


% 
SKPREG 
* 
* 


SKPARS 
SKPARD 
SKPARL 
SKPSCS 
SKPSCD 
SKPMTH 
SKPENS 
SKPEND 
SKPENL 


DEFXX 
DEFXx 
EQUATE 


EQUATE 


EQUATE 


EQUATE 


EQUATE 


EQUATE 


EQUATE 


DEFxXx 
EFQUATE 


Sy 16 


SKPPAR, 1 


X'80' 


X'40' 


Koo? 


ya iO ad 


X'08' 


X'O4' 


m2” 


NNNnNNNANN MN NH 
~~ ~~ ~ 8 * ee WW 
MM |MNM ANN — 


LSEEKP PARAMETER LIST 
LSEEKP OPTION FLAG 
TABLE/PARM LIST MATCH 
ADDRESS 
= 0 USE TABLE MATCH 
ADDRESS 
= 1 USE PARM LIST MATCH 
ADR 
SEQUENT/BINARY TABLE 
SEARCH 
= 0 SEQUENTIAL TABLE 
SEARCH 
= 1 BINARY TABLE SEARCH 
TABLE LOCATION 
= 0 IN NON-SPLIT AP OR 
CONSTANT PORTION OF 
SPLIT 
= 1 IN INSTRUCTION POR- 
TION OF A SPLIT AP 
NO COPY/COPY TABLE ELE- 
MENT 
0 DO NOT COPY TABLE 
ELEMENT 
= 1 COPY TABLE ELEMENT 
LOCATE EQUAL TABLE ENTRY 
(REQUIRED SETTING = 1) 
= 1 RETURN EQUAL TABLE 


ENTRY 
BINARY RETURN < IF NOT 
EQUAL 
= 0 DO NOT RETURN LESS 
THAN 
= 1 RETURN IF < IF NOT 
EQUAL 
BINARY RETURN > IF NOT 
EQUAL 
= 0 DO NOT RETURN GRTR 
THAN 
= 1 RETURN GRTR THAN 
IF NO = 


LSEEKP OPTION FLAG BYTE 2 
DO NOT/ DO RETURN NSI 
= Q DO NOT RETURN NSTI 
= 7 RETURN NSI | 
RETURN NSI IN STACK/REGISTER 
Q RETURN NSTI IN STACK 
OQ REGISTER TO CONTAIN 
NSI 
SEGMENT CONTAINING ARGUMENT 
DISPLACEMENT TO ARGUMENT 
LENGTH OF ARGUMENT 
TABLE SEGMENT 
DISPLACEMENT TO TABLE 
MATCH ADDRESS 
SEGMENT CONTAINING COPY FIELD 
DISPLACEMENT TO COPY FIELD 
LENGTH OF COPY FIELD 
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DEFSMS 


B-18 


DEFSMS 


KKKKKKKKKKKKKKKKKKKKKKRKKRKKKKKKRKRKKKRRKKKKKK RRR RKKKKKRKRKKKKKKKKK KK KKK KK 


* 
* 
* 
* 
* 


SMSPSW 
SMSSID 
SMSCCD 
SMSUIC 
SMSPCA 
SMSPCC 
SMSABK 
SMSIML 
SMSICT 
SMSDST 
SMSDS1 
SMSDS2 
SMSLTC 
SMSLTH 


SMSIND 

SMSDATSM 
SMS TICAM 
SMSTCAO 


SMSDCB 
SMSDEL 
SMSDSS 


SMSAFL 
SMSACP 
SMSACPM 
SMSAST 
SMSASTM 
SMSAAP 
oMSAAPM 


SMSTMR 
SMSHTM 
SMSLTM 
SMSPCT 


SMSFG2 
SMSPCRM 
SMSLWSM 


SMSLSB 
SMSWAIT 
SMSICPM 
SMSIAPM 
SMSITPM 
SMSISPM 
SMSIPPM 
SMSITFM 
SMSTATM 


SMSDRG 


SEGMENT ONE MACHINE SECTION DEFINITIONS 


GENERAL FIELDS AND EQUATES SUBSECTION: 


LSPACE 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
LSPACE 
DEFLD 
EQUATE 
EQUATE 
EQUATE 
LSPACE 
DEFLD 
DEFLD 
DEFLD 
LSPACE 
DEFLD 
DEFLD 
EQUATE 
DEFLD 
EQUATE 
DEFLD 
EQUATE 
LSPACE 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
LSPACE 
DEFLD 
EQUATE 
EQUATE 
LSPACE 
DEFLD 
DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
LSPACE 
DEFLD 
DEFLD 
LSPACE 


Lge 


a7 
1,SMSAFL, 1 


x' S80” 


1,SMSAFL, 1 


x'40' 


1,SMSAFL, 1 


x* 20" 
,4 


eS 
2 


1, 
1,SMSTMR , 2 
1, 
1, 


PSW 
STATION ID 


a ee He oe oe oe oe A eK KE Ee Oe OK eK EK RK KK EK KE KK RK KK HK EK EH OE EE 


COMPLETION CODE 

RELATIVE INSTRUCTION COUNTER 

ADDRESS OF INSTRUCTION THAT CAUSED PC 
PROGRAM CHECK CODE 

OPB A/B INDICATION 

I/P MESSAGE LENGTH 

COUNT OF IMPLIED DATA SETS OPENED 
DEVICE STATUS BYTES 


STATUS FIELD 1 
STATUS FIELD 2 
LOOP THRESHOLD 
LOOP THRESHOLD 


INDICATOR BYTE: 


STATION CONFIGURED FOR DATSM USE MASK 


CANCEL MASK 


COUNT 
VALUE 


TURN OFF CANCEL FLAG MASK 


DELIMITER CONTROL BYTE 
ALTERNATE DELIMITER TABLE ADDR 
SWITCHED MSG STB ID FIELD | 


ASYNCHRONOUS FLAG FIELD: 


ASYNCHRONOUS 
ASYNCHRONOUS 
ASYNCHRONOUS 
ASYNCHRONOUS 
ASYNCHRONOUS 
ASYNCHRONOUS 


SMS TIMER FIELD 


CPU INTERRUPT FLAG 
CPU INTERRUPT MASK 
STATION INTERRUPT FLAG 
STATION INTERRUPT MASK 
ALA INTERRUPT FLAG 
ALA INTERRUPT MASK 


HIGH ORDER 2 BYTES OF TIMER 
LOW ORDER 2 BYTES OF TIMER 
PAUSE INSTRUCTION COUNTER 


FLAG BYTE: 


PROGRAM CHECK ROUTINE IN CONTROL 


LOGICAL WAIT . 


PARENT AP LINK 


WAIT INSTRUCTION TERMINATING CONDITION 


CPU MESSAGE 
ALA MESSAGE 


STATE 


STACK USE COUNT 


TERMINAL MESSAGE 
SWITCHED MESSAGE 


PROGRAM INERRUPT VIA POST INSTRUCTION 


TIMER INTERRUPT 
ATTENTION INTERRUPT 


REGISTER FOR DELIMITER TABLE ADDRESS 


RESERVED 
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% 
* 
% 
sd 
* 
# 


HSK AK OS SS 26 ie eK ok oe oe oie oie ole ole oie ole oie ie 2K aie 2k ae A ok eo oie oie 2k OI OK ie Oe OK ie ie Oi 2 2k OK 2s OK ke Ae OK oe OK OK Oe oie OK oie ok ok ie OK 2 ek 


e ae 

% TERMINAL FIELDS AND EQUATES SUBSECTION: * 

* * 

* 5 

6 He OG Oe oe fe he He Oe ote oie oie OK ote Oe 26 Oi fe 2 OE OK oe fe OE Oe oe OK ie ie fe oie oie oie ae oie oie oie oe oe fe 3 oie ok sie He oie oe oft ole oe oie of ole ote oie oe Oe ok ok oe ok ke 
LSPACE 

SMSEID  DEFLD eae EOM IDENTIFIER 

SMSECT  DEFLD Tice NUMBER OF CHARS IN THE CURRENT EOM 

STRING 

SMSTGU  DEFLD eis ADDRESS OF TERMINAL GROUP UNIT 

SMSSSU  _- DEFLD 1,SMSTGU,1 ADDRESS SHARED SLOT UNIT (SUB-ADDR) 
LSPACE 

SMSSAM  DEFLD (eae LDA ATTENTION SUMMARY MASK: 

SMSLDAO EQUATE aus (Ol MESSAGE AVAILABLE ON LDA-O 

SMSLDA1 EQUATE x'4o' MESSAGE AVAILABLE ON LDA-1 

SMSLDA2 EQUATE x20" MESSAGE AVAILABLE ON LDA-2 

SMSLDA3 EQUATE x0! MESSAGE AVAILABLE ON LDA-3 

SMSLDA4 EQUATE x08" MESSAGE AVAILABLE ON LDA-4 

SMSLDA5 EQUATE koa" MESSAGE AVAILABLE ON LDA-5 

SMSLDA6 EQUATE K'02 MESSAGE AVAILABLE ON LDA-6 

SMSLDA7 EQUATE X'O1! MESSAGE AVAILABLE ON LDA-7 
LSPACE 

SMSSPR DEFLD ae RESERVED 

SMSCUR DEFLD 1,SMSSPR,2 LOCAL KEYTRACKING CURSOR ADDRESS 

SMSMSL  DEFLD oat LENGTH OF MAGNETIC STRIPE DATA 

SMSKSM  DEFLD tea LDA FIRST KEYSTROKE SUMMARY MASK: 


LSPACE 
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KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKRKKKKKKKKKKKRKKKKK KKK KEKE & 


* 
* 
* 
* 


SMSUNK 
SMSFG1 
SMSMBTM 
SMSNXRM 
SMSDSKM 
SMSDT2M 
SMSDKTI 


SMSDKT 1 
SMSDKT2 


SMSDSK1 
SMSDSK2 
SMSDSK3 
SMSDSK4 
SMSDID 


SMSRPS 
SMSRSNH 
SMSRSNL 
SMSRSN 
SMSRSN1 
SMSRSN2 


SMSSFW 
SMSSFR 
oMSKEY 
SMSKEY 1 
SMSKEY2 


SMSFSN 
SMSSSN 
SMSCSN 
SMSNDB 


SMSADS 1 
SMSADS 


DISK/DISKETTE FIELD AND EQUATES SUBSECTION: 


LSPACE 
DEFLD 
DEFLD 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
LSPACE 
EQUATE 
EQUATE 
LSPACE 
EQUATE 
EQUATE 
EQUATE 
EQUATE 
DEFLD 
LSPACE 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
LSPACE 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
DEFLD 
LSPACE 
DEFLD 
DEFLD 
DEFLD 
LSPACE 


1 


1 


ar 
1,SMSRSNL, 2 


SK KKM KK MK KM MRO 


ad 
1,SMSRPS, 2 


1,SMSRSN, 1 


14,1 


ae aed ee De) 


NNMNNNNE 


— es ee 4 eH BY BY BR BW 
~ = *-* ss 8 *& «= YY~ ~*~ 


a a ee 
=~ «@= hm 
Nias 


~ Y~ 


SKEY , 2 


SNDB, 2 
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UNIQUE ID FOR UNKEYED DATA SET 

FLAG BYTE: 
MULTI-BLOCK 1/0 
AVOID RECORD TRANSFER 
FLAG: SET-->DISK, RESET-->DISKETTE 
ALTERNATE DRIVE - DISK OR DISKETTE 
MASK TO ISOLATE DRIVE SELECT BITS 


SELECT BIT VALUE FOR DISKETTE DRIVE 1 
SELECT BIT VALUE FOR DISKETTE DRIVE 2 


SELECT BIT VALUE FOR DISK DRIVE A 

SELECT BIT VALUE FOR DISK DRIVE B 

SELECT BIT VALUE FOR DISK DRIVE C 

SELECT BIT VALUE FOR DISK DRIVE D 
DATA SET ID 


RECORD SEQ NUMBER FOR READ/REPLACE 
1ST HWD OF RECORD SEQ NUMBER 
2ND HWD OF RECORD SEQ NUMBER 
2ND HWD OF RECORD SEQ NUMBER 
3RD BYTE OF RECORD SEQ NUMBER 
4TH BYTE OF RECORD SEQ NUMBER 


SUB-FILE ID FOR TEMP FILE WRITE 
SUB-FILE ID FOR TEMP FILE READ/REPLACE 
CURRENT POSITION OF KEYED DATA SET 
FIRST HWD OF 4 BYTE KEY 

SECOND HWD OF 4 BYTE KEY 

RESERVED 

FILE SEQ NUM FROM LAST TEMP FILE WRITE 
RESERVED 

SUB-FILE SEQ NUM FROM LAST TEMP FILE WRT 
RESERVED 


COMPOSITE SEQ NUM FROM LAST TEMP FILE WRT 


NUM OF D.S. BLKS AVAIL FOR LWRITE 
1ST HWD OF D.S. BLKS AVAIL FOR LWRITE 
2ND HWD OF D.S. BLKS AVAIL FOR LWRITE 
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Segment I Fields 


aK 2K 2 AK 2 ole ok AK 2 oie OK Oe oe OK OK oe OK OK Oe oe Ke ok OK oe oe Oe oe KK eK oe Oe ok oe eK ee Ke eK KK Oe OK KOK 


* 


co 


* CPU FIELDS AND EQUATES SUBSECTION: * 

* x 

2H ee 6 a IE ie ee EE og AG He IEE gE AE Ee AG fe ke OIC fee OE 2 He NC cE 2g 2 He oie eae ee oe hk hk fe fe ok ake ok 
LSPACE 

SMSCRC DEF LD ere” CPU READ CONTROL FIELDS 

SMSCRF DEFLD 1,SMSCRC,1 CPU READ FLAGS 

SMSBRL DEFLD 1,SMSCRC,1 BSC READ CONTROL 

SMSCRT DEF LD hey gl CPU READ TYPE 

SMSCST DEFLD Nepal LINK STATUS BYTE 

SMSCCR EQUATE X'04' OPERATIONAL CIRCUIT FLAG 

SMSCID DEF LD 1,SMSCST,1 S/S UNIT ID 

SMSTR2 DEFLD Lge RESERVED 

SMSCWC DEFLD re CPU WRITE CONTROL FIELDS 

SMSCWF DEFLD 1,SMSCWC,1 CPU WRITE FLAGS 

SMSBWC DEFLD 1,SMSCWC,1 BSC WRITE CONTROL 

SMSCWT DEF LD ‘apaged CPU WRITE TYPE 

SMSCRS DEFLD Tog READ SEQ NUMBER OR ID 

SMSBIH DEFLD 1,SMSCRS,2 INPUT HEADER LENGTH 

SMSCWS DEFLD MV pipe WRITE SEQ NUMBER OR ID 

SMSBOH DEFLD 1,SMSCWS,2 OUTPUT HEADER LENGTH 

SMSCSR DEF LD Lipa READ RESPONSE TO DATA SEQ NUMBER 

SMSCHL DEFLD 1,SMSCSR,2 HEADER LENGTH 

OMSCPE DEFLD Lege CPU READ/WRITE FLAGS EXTENSION 

OMSCRE DEFLD 1,SMSCPE,1 CPU READ FLAGS EXTENSION 

SMSCWE DEFLD pepe CPU WRITE FLAGS EXTENSION 
DEFLD Aggie RESERVED 
DEFLD Degree tl RESERVED 

SMSAMS DEFLD L pop ALA MACHINE SEGMENT, SEG NO./DIS- 

PLACEMENT 

SMSAMS1 DEFLD 1,SMSAMS,1 AMS SEGMENT NUMBER 

SMSAMS2 DEFLD by, 2 AMS SEGMENT DISPLACEMENT 
LSPACE 


oh oe 3 eK KKK KKK KKK KKK KKK KKRKKKKKKRKK KKK KKK KKK KEK KE 


* 
* 
* 
* 


*K 


LINKSTACK FIELDS SUBSECTION: - 


cy 
% 
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LSPACE 
SMSLSH  DEFLD 1,,2 LINK STACK HEADER 
SMSLSM  DEFLD 1,SMSLSH,1 MAXIMUM NUMBER OF ENTRIES 
SMSLSE  DEFLD Lad CURRENT NUMBER OF ENTRIES 
* SEE SMSLSB FOR BASE COUNT OF STACK 
SMSLSA  DEFLD P22 LINK STACK AREA 


Segment 1 contains the following fixed fields: 


Station ID (SMSSID): The number (2 through 60) of the logical work station. 
This field is regenerated each time an LEXIT instruction is issued. 


Condition Code (SMSCCD): A code indicating the result of execution of an 
instruction (bits 4-7 of the byte at SMSCCD). Not all instructions set a 
condition code. 


Instruction Counter (SMSUIC): The displacement, into Segment 14, of the 
next instruction to be executed. This field is set to O when an LEXIT 
instruction is executed. The instruction counter may be changed by the 
application program to alter program flow, although a branch or LSEEK 
instruction is preferable. 
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Program Check Address (SMSPCA): The displacement, into Segment 14, of 
the instruction that caused a program check. This field is only set when a 
program check occurs. 


Program Check Code (SMSPCC): A code indicating the cause of the program 
check. This field is set before control is given to the application program’s 
program-check routine. 


Segment 0 Selected (SMSABK): A character A or B (hex C1 or hex C2) that 
indicates which Segment 0 is desired when a SELECT instruction is executed. 


Input Message Length (SMSIML): The length of data placed in the station’s 
segment as a result of an LREAD instruction or the amount of data not 
transmitted (residual length) by an LWRITE, WRTI, or REPLACE instruction. 


Implied Data Set Opens (SMSICT): A count of data sets opened as a result of 
opening the associated keyed data set. 


Device Status (SMSDST): A code indicating the status that resulted from data 
transmission or the reason a data transmission operation failed. 


Instruction Count (SMSLTC): The number of instructions executed by the 
application program since the last LEXIT instruction was executed. 


Instruction Count Threshold (SMSLTH): The maximum number of 
instructions to be executed before the controller assumes that the station’s 
application program is in an unending loop. When the instruction count 
(SMSLTC) exceeds the value in this field, the controller causes a program 
check to occur for this station. 


Indicator Byte (SMSIND): Bit 1 of this byte is set to 1 when the reset key ona 
terminal assigned to LDA 0 is pressed twice (an attention indication). Other 
features set this byte to different values. This byte is reset to 0 when an LEXIT 
instruction is executed. 


Delimiter Control Byte (SMSDCB): A mask used to select the set of delimiters 
to be recognized by the controller. 


Alternate Delimiter Table Address (SMSDEL): Address of the delimiter table 
currently in use when multiple delimiter tables are defined for the application 
program. 


Switched Message Station ID (SMSDSS): For a station-to-station write or 
check of a station-to-station write, the number of the station to receive the 
data. For a station-to-station read, the number of the station that sent the data. 


Asynchronous Flag Field (SMSAFL): A one-byte field whose two high-order 
bits refer to station and CPU interruptions pending. By scanning this field 
before relinquishing control, a-work station can determine if any messages are 
pending for it. 


Station Timer Value (SMSTMR): The value (in seconds) that is compared 
with the controller timer value (GMSTMR) to determine if the work station 
should be dispatched at its asynchronous timer entry point. If zero, the station 
is not dispatched. 7 
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Pause Instruction Counter (SMSPCT): A count of the number of times PAUSE 
has been performed since the last LEXIT. 


Flag Field (SMSFG2): A 1-byte flag field indicating the following: 


Bit Position Meaning 
1XXX XXXX A program check routine is currently being executed. 
X1xXx XXxx The station is currently in a logical wait state. 


Link Stack Base Entry (SMSLSB): The number of the last link stack entry used 
by the parent application program. 


Wait Terminating Condition (SMSWAIT): A 1-byte field containing the 
condition ending the LWAIT instruction. If more than one ending condition is 
present, only the highest priority condition is indicated. 


Delimiter Table Address Register (SMSDRG): The number of the application 
program register that contains the address of the delimiter table. | 


End-of-Message/End-of-File ID (SMSEID): The translate value defined for a 
key designated as an EOM/EOF key with the EID option. 


Number of Characters in EOM (SMSECT): The number of characters placed 
in the input segment as a result of translating the EOM key (0-6). SMSIML 
minus SMSECT is the length of the data entered. 


Terminal Group Unit Address (SMSTGU): The subaddress (hex 00 through 
hex FF) identifying the individual unit currently in use in a terminal group. 


LDA Attention Summary (SMSSAM): A one-byte field whose bits correspond 
to logical device addresses (the high-order bit corresponds to LDAOQ; the 
low-order bit, to LDA7). A bit set to 1 indicates a message pending from the 
device associated with that LDA. 


Magnetic Stripe Reader Data Length (SMSMSL): The length of the data 
string received from the magnetic stripe reader. 


Unkeyed Data Set ID (SMSUNK): A 2-byte field containing a unique ID of an 
unkeyed data set. 


Disk/Diskette Flag Field (SMSFG1): A 1-byte field containing flags that the 
application program sets to control disk and diskette operations. This field 
contains a flag that controls single and multi-block operations; a flag that 
controls data transfer for keyed operations; and flags that select the disk or 
diskette drive to be used. 


Disk Data Set ID (SMSDID): The data set ID (DSID) of the disk or diskette 
data set to be accessed by the controller application program. This field is set 
by the application program prior to issuing an instruction to the disk or diskette 
(unless previously set to the desired ID). 


Record Sequence Number (SMSRPS): A 4-byte field describing the data 
record position for disk and diskette operations. The low-order 2 bytes are 
named SMSRSN for compatibility with 3600. 
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-Subfile Index for Disk/Diskette Write (SMSSFW): The subfile number during 


a write to the temporary file. 


Subfile Index for Disk/Diskette Read (SMSSFR): The subfile number during 
read from the temporary file. 


Keyed Data Set Position (SMSKEY): A 4-byte field indicating the current 
position in a keyed data set. 


File Sequence Number from Last Diskette/Disk Write (SMSFSN): The file 
sequence number from the last write to the temporary file or the log. 


Subfile Sequence Number from Last Diskette/Disk Write (SMSSSN): The 
subfile sequence number from the last write to the temporary file. 


Composite File Sequence Number from Last Diskette/Disk Write (SMSCSN): 
The composite file sequence number from the last write to the temporary file. 


Available Data Set Blocks (SMSADS1/ADS): A 4-byte field indicating the 
number of data set blocks available for use by LWRITE. 


Host Processor Read Control Field (SMSCRF, SMSCRT): The type of 
message received from the central processor and any flags that accompanied 
the message. 


Link Status (SMSCST): The status of the station’s use of the communication 
link. 


Host Write Control Field (SMSCWF, SMSCWT): The type of message being 
sent by the station and any flags that accompany the message. 


Host Read Sequence Number (SMSCRS): The sequence number of the last 
message received from the host. 


Host Write Sequence Number (SMSCWS): The sequence number of the last 
message sent to the host. 


Host Read-Response Sequence Number MSS): The sequence number of 
the message being responded to. 


CPU Read/Write Extension (SMSCPE): A 2-byte flag field used as extensions 
when performing CPU LREAD or LWRITE. SMSCRE is used as an extension 
of SMSCRE for LREAD and SMSCWE is an extension of SMSCWE for 
LWRITE. 


ALA Machine Segment Address (SMSAMS): A 3-byte field containing the 
address of the ALA Machine Segment. The first byte indicates the segment, 
and the remaining 2 bytes are the displacement of the AMS. 
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Link Stack Maximum (SMSLSM): The maximum number of entries that the 
link stack can contain. Initialized by the RETSTK operand of the STATION 
macro. 


Number of Return Stack Entries (SMSLSE): The number of current entries in 
the return address stack. The number is incremented each time a BRANL or 
BRANLR adds an entry to the stack and decremented each time an 
LRETURN uses an entry. 


Return Address Stack (SMSLSA): Beginning of the area in Segment 1 where 
return addresses will be stored. The number of bytes reserved is two times the 
number of return addresses indicated in SMSLSM. Addresses are added to the 
stack in the next available field when the appropriate type of branch-and-link 
instruction is executed. 
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DEFSOR 


Equate DEFSORS to a segment number. 


DEFSOR 

SORPAR DEFXX ae SORT PARAMETER LIST 

SORIFB DEF Xx SORPAR,1 INPUT FLAG BYTE 

SORIFOM EQUATE X'80' BIT ON ---> DESCENDING KEYS 

SORRFB DEF XxX s,1 RESERVED 

SORSBG DEFXx Si2 SORT BLOCK BEGIN 

SORSND DEFXxX S,2 SORT BLOCK END 

SORWBG DEFXxX SZ WORK BLOCK BEGIN 

SORWND DEFXx Siz WORK BLOCK END 

SORDLN DEF Xx S;Z DATA ITEM LENGTH 

SORKYD DEFXx SZ DISPLACEMENT TO KEY IN DATA ITEM 

SORKYL DEFXX s,1 KEY LENGTH 

SORSSG DEFXx s,1 SEGMENT NUMBER CONTAINING SORT BLOCK 

SORWSG DEFXx S,1 SEGMENT NUMBER CONTAINING WORK BLOCK 
~DEFTRP 

Equate DEFTRPS to a segment number. 

DEFTRP 

TRPPAR DEF Xx s,30 PARM LIST (INCLUDES 'TRPENT1'! ) 

TRPINS DEF XX TRPPAR,2 INPUT AREA'S SEGMENT 

TRPIND DEFXxX Sy 2 INPUT AREA'S DISPLACEMENT 

TRPINL DEFXxX Ss,2 INPUT AREA'S LENGTH 

TRPOUS DEFXx S72 OUTPUT AREA'S SEGMENT 

TRPOUD DEFXx S,2 OUTPUT AREA'S DISPLACEMENT 

TRPOUL DEFXX S52 OUTPUT AREA'S LENGTH 

TRPMSK DEF XX s,1 BREAK CONTROL MASK 

TRPNTT DEFXx S21 NUMBER OF TRANSLATE TABLES 

TRPPTT DEFXx s,1 PRIOR TRANSLATE TABLE NUMBER 

TRPCTT DEFXX s,1 CURRENT TRANSLATE TABLE NUMBER 

TRPLIC DEFXX S51 LAST INPUT CODE PROCESSED 

TRPFNC DEFXxX S,1 FUNCTION CODE 

TRPLID DEFXxX S2 LAST INPUT CODE DISPLACEMENT 

TRPLOD DEF Xx Ss,2 LAST INPUT CODE'S OUTPUT DISPLACEMENT 

TRPCNT DEFXxX S52 TOTAL NUMBER OF CHARACTERS OUTPUT 

TRPTST DEFXx s,1 TERMINATION STATUS FIELDS 

TRPTBR EQUATE X'80' TRANSLATE BREAK 

TRPTOO EQUATE X'40'! OUTPUT OVERFLOW 

TRPTIO EQUATE X'20' INPUT OVERFLOW 

TRPTII EQUATE X'10' INVALID INPUT CODE 

TRPTNL EQUATE X'‘'O8' INITIAL OUTPUT LENGTH WAS ZERO 

DEFXxX s,1 RESERVED 

TRPTTL DEF Xx s,0 TRANSLATE TABLE LIST 

TRPENT1 DEFXx s,4 ENTRY1 OF XLATE TABLE LIST 

TRPTTS1 DEFXx TRPENT1 ,2 XLATE TABLE 1'S SEGMENT 

TRPTTD1 DEFxx s;2 XLATE TABLE 1'S DISPLACEMENT 
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DEFTRT 


DEFTSX 


Equate DEFTRTS to a segment number. 


DEFTRT 


TRTHDR 
TRTLEN 
TRTDOP 
TRTLOW 
TRTELN 
TRIHFG 
TRITRO 
TRTMDS 
TRTMDM 
TRTMDU 
TRTIUSE 
TRTNUM 


* 


TRIEFG 
TRTOPS 
TRTOCS 


TRTFNC 
TRTBRK 
TRTIBAD 
TRIINL 


TRTRES 1 
TRTTOC 


DEFXxX 
DEFXx 
DEF XxX 
DEFXX 
DEFXxX 
DEFXX 
EQUATE 
EQUATE 
BRQUATE 
RQUATE 
DEFXX 
DEFXx 
DEFXxX 


s,12 


TRTHDR, 2 


s,2 
s,1 
s,1 
S,1 
X'80' 
X'40' 
X'20' 
X'10' 
s,1 
S,2 
S,2 


TRANSLATE TABLE HEADER 
LENGTH OF WHOLE TABLE 
DISP: TBL-HDR TO OFF POINTED STRINGS 
LOW CODE IN TABLE 
LENGTH OF ENTRY 
HEADER FLAGS 
ONLY TRANSLATE ENTRIES 


MODE = SKIP (FOR OUT OF RANGE) 
MODE = MOVE (FOR OUT OF RANGE) 
MODE = USE (FOR OUT OF RANGE) 


VALUE FOR 'USER' MODE 
NUMBER OF CODES IN THE TABLE 
RESERVED 


TRANSLATE TABLE ENTRIES' FLAG BYTE 


DEFXx 
KQUATE 
EQUATE 


EQUATE 
EQUATE 
EQUATE 
EQUATE 


EQUATE 
EQUATE 


s,0 
X'80' 
X'40' 


x20" 
X'10' 
X'08' 
x'O4!' 


X'02' 
X'O1' 


ENTRIES' FLAG BYTE: 
3 VALUES IN OFF-POINTED STRING 
OUTPUT CHARACTER STRING 
DEFINED 
FUNCTION DEFINED 
BREAK DEFINED 
BREAK ADDRESS DEFINED 
INLEN DEFINED TO BE OTHER THAN 


RESERVED (MUST BE ZERO) 
2 OUTPUT CHAR'S IN TABLE ENTRY 


Equate DEFTSXS to a segment number. 


DEFTSX 


TSXPAR 
TSXFLG 
TSXFREM 
TSXFSTM 


TSXFSEM 


TSXSID 
TSXSEG 
TSXADR 
TSXREG1 
TSXREG2 


DEFXxX 
DEFXx 
EQUATE 
EQUATE 


EQUATE 


DEFXxX 
DEFXX 
DEFXxX 
DEFXX 
DEFXX 


'TESTX' PARAMETER LIST 


FLAG BYTE: 
REQUEST SEGMENT'S STATUS 
STATION ACTIVE FOR 
INDEXING 
SEGMENT ACTIVE FOR 
INDEXING 
STATION ID 


SEGMENT NUMBER 

INDEX REG-NUM TBL'S ADDRESS 
OPERAND ONE'S INDEX REGISTER 
OPERAND TWO'S INDEX REGISTER 
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DEFVUE 


B-28 


Equate DEFVUES to a segment number. 


DEFVUE 


VUEPAR 
VUEREQO 
VUESTA 
VUESTK 
VUEFG1 
VUEFLOM 
VUEFL1M 
VUEFL2M 
VUEUIC 
VUELSB 
VUELSE 
VUEDEL 
VUEPNT 
VUEFG2 
VUERTF 
VUEFAC 
VUEPID 
VUERES 1 


DEFXx 
DEFXX 
DEFXx 
DEF xXx 
DEFXx 
EQUATE 
EQUATE 
EQUATE 
DEFXx 
DEFXxX 
DEFXxX 
DEFxXx 
DEFXxX 
DEF XxX 
EQUATE 
EQUATE 
DEFXxX 
DEFxXx 


S,26 


VUEPAR, 1 


MM 


NwnNnNMnDW MN 


M Nn 
an 6 6) 
— © 


VIEW PARAMETER LIST 
REQUEST CODE 
STATION NUMBER 
STACK ID 
FLAG BYTE 1 , 
STACK ENTRY IN USE 
STACK ENTRY PERMANENT 
'B' SET OF REGISTERS ACTIVE 
USER INSTRUCTION ‘COUNTER 
BOTTOM OF SMS LINK STACK 
TOP OF SMS LINK STACK 
SAVED VALUE OF SMSDEL 
PARENT SEGMENT SPACE ID 
FLAG BYTE 2 
AP TRANSIENT FLAG 
AP CALLABLE 
APPLICATION PROGRAM NAME 
RESERVED 
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Appendix C. Assembler Error Messages 


The following lists the error messages that may result from a 4700 assembly. 


BDK900I SYMBOL NOT EQUATED 


Explanation: Self-explanatory. 


User Response: Equate the symbol to a value or delete the symbol; reassemble. 


BDK901I LABEL MISSING 

Explanation: Self-explanatory. 

User Response: Add the missing label and reassemble. 
BDK902I INCORRECT NUMBER OF OPERANDS 
Explanation: The number of operands specified is not correct. 


User Response: Check the syntax of the instruction, correct the error, and 
reassemble. 


BDK903I MISSING OPERANDS 
Explanation: Required operand or operands have been omitted. 


User Response: Check the syntax of the instruction, correct the error, and 
reassemble. 


BDK904I MISSING FIRST OPERAND 

Explanation: Self-explanatory. 

User Response: Add the first operand to the instruction and reassemble. 
BDK905I MISSING SECOND OPERAND 


Explanation: Self-explanatory. 


User Response: Add the second operand to the instruction and reassemble. 


BDK906I MISSING THIRD OPERAND 

Explanation: Self-explanatory. 

User Response: Add the third operand to the instruction and reassemble. 
BDK9071 INVALID OPERAND 


Explanation: There is a syntax error in one or more operands. 
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User Response: Check the syntax of the instruction, correct the error, and 
reassemble. 


BDK908I INV ALID FIRST OPERAND 
_ Explanation: Self-explanatory. Oo 

User Response: Correct the first soared and reassemble. 
BDK909I_ INVALID SECOND OPERAND 
Explanation: Seitexplanatory: 

User Response: Correct the eased operand and reassemble. 
BDK9101 INVALID THIRD OPERAND 
Explanation: Self-explanatory. 
User Response: Correct the third operand and reassemble. 
BDK9111 INVALID FOURTH OPERAND 
Explanation: Self-explanatory. 
User Response: Correct the fourth operand and reassemble. 
BDK912I SEGMENT NOT PROPERLY SPECIFIED 


Explanation: The segment specification is either nonnumeric or not in the range. 
of 0 to 15, or an undefined symbol was encountered. — 


User Response: Correct the segment specification and reassemble. 
-BDK913I REGISTER NOT PROPERLY SPECIFIED 


Explanation: The register specification is either nonnumeric or not in the range 
of 0 to 15. 


User Response: Correct the register specification and reassemble. 
BDK914I LENGTH NOT PROPERLY SPECIFIED 


Explanation: The length specification is either nonnumeric or not within the 
range valid for the instruction. 


- User Response: Correct the length specification and reassemble. 
BDK915I_ DISPLACEMENT NOT PROPERLY SPECIFIED 


Explanation: The displacement specification is either nonnumeric or not within 
the range valid for the instruction. 
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User Response: Correct the displacement specification and reassemble. 
BDK916I SEGMENT FOURTEEN CANNOT BE USED 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK918I DATE OPERAND MISSING OR INCORRECT 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 


BDK919I MULTIPLE USE OF BEGIN, FINISH, DEFCODE, DEFLINK, 
OR DEFASEP NOT PERMITTED 


Explanation: Self-explanatory. 
User Response: Correct the error and reassemble. 
BDK920I TABLE ENTRY [n] IS INVALID 


Explanation: There is a syntax error in positional operand (n) of the TABLE 
instruction. 


User Response: Correct the error and reassemble. 

BDK921I MISSING FOURTH OPERAND 

Explanation: Self-explanatory. 

User Response: Add the fourth operand and reassemble. 

BDK922I LABEL OR ADDRESS GREATER THAN 8 CHARACTERS 
Explanation: Self-explanatory. 

User Response: Correct the label or address and reassemble. 

BDK923I GLOBAL LOCATION COUNTER OVERFLOW 
Explanation: Application program section is greater than 64K. 

User Response: Correct the error and reassemble. 

BDK924I LENGTH OPERAND MISSING 

Explanation: The LNG keyword has been omitted on a TABLE instruction. 


User Response: Correct the error and reassemble. 


Appendix C. Assembler Error Messages C-3 


BDK925I LENGTH TOO LONG 


Explanation: The LNG operand on the TABLE instruction is not within the 
valid range. 


User Response: Correct the error and se aseenieis 

BDK9261 CONFLICT: NOT ALL ENTRIES HAVE MATCH ADDRESS 
Explanation: Self-explanatory. 

User Response: Correct the eat aiid reassemble. 

BDK9271 DUPLICATE LABEL 


Explanation: The same label appears on a previous EQUATE, DEFLD, or 
DEFCON instruction. 


User Response: Correct the error and reassemble. 
BDK928I OVERLAY MACRO NOT PERMITTED 


Explanation: An overlay instruction may occur only after a FINISH or 
ENDOVLY instruction. 


User Response: Correct the error and reassemble. 
BDK929I ORIGIN OPERAND OMITTED 


Explanation: The ORIGIN operand on an OVLYSEC instruction has been 
omitted. 


User Response: Add the missing operand and reassemble. 

BDK930I ORIGIN OPERAND INVALID 

Explanation: The ORIGIN operand on an OVLYSEC instruction is invalid. 
User Response: Correct the error and reassemble. 

BDK931I GLOBAL TABLE OVERFLOW 


Explanation: More than 4096 EQUATE, DEFCON, and DEFLD instructions 
have been coded. 


User Response: If using OS/VS the user may request the customer engineer to 
increase the global tables. 


BDK9321 LLOAD NOT PERMITTED | 


| Explanation: The LLOAD instruction is not permitted unless the NUMOVLY 
operand is coded on the BEGIN instruction. 
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User Response: Correct the error and reassemble. 

BDK933I TOO MANY ENTRIES FOR TABLE 

Explanation: The number of table entries exceeds the limit allowed. 
User Response: Correct the error and reassemble. 

BDK934I DEFLINK MACRO NOT SPECIFIED 

Explanation: Self-explanatory. 

User Response: Code the DEFLINK macro and reassemble. 
BDK935I. TYPE KEYWORD OPERAND IS INVALID 


Explanation: The TYPE operand for the OPENSESS or CLOSSESS macro was 
specified incorrectly. 


User Response: Correct the error and reassemble. 
BDK936I SESSION ID OPERAND NOT SPECIFIED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. 


User Response: Correct the OPENSESS macro and reassemble. 
BDK937I RESP KEYWORD OPERAND IS INVALID 
Explanation: The RESP operand was not specified correctly. 
User Response: Correct the error and reassemble. 

BDK938I_ BRCKT KEYWORD OPERAND IS INVALID 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK939I DATA KEYWORD OPERAND IS INVALID 


Explanation: The DATA operand of the LSEND macro was not specified 
correctly. 


User Response: Correct the error and reassemble. 
BDK940I_ LOSS OF CONTACT ENTRY OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. _ 


User Response: Correct the DEFCODE macro and reassemble. 
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BDK941I CANCEL KEYWORD OPERAND IS INVALID 


Explanation: The CANCEL operand of the LRECEIVE macro was not 
specified correctly. 


User Response: Correct the error and reassemble. 
BDK942I OUTPUT SEGMENT OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. 


User Response: Correct the error and reassemble. 
BDK943I INPUT SEGMENT OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. 


User Response: Correct the error and reassemble. 
BDK944I_ WORK SEGMENT OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. 


User Response: Correct the error and reassemble. 
BDK945I_ LINK REGISTER OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. 


User Response: Correct the error and reassemble. 
BDK9461 WORK REGISTER OPERAND OMITTED 


Explanation: The required operand has been omitted, was specified incorrectly, 
or has never been defined. | 


User Response: Correct the sae and reassemble. 

BDK947I LINK REGISTER SAME AS WORK REGISTER 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK948I_ LINK REGISTER SAME AS TRACE REGISTER 
Explanation: Self-explanatory. 


User Response: Correct the error and reassemble. 
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BDK949I WORK REGISTER SAME AS TRACE REGISTER 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK950I TRACE REGISTER OPERAND OMITTED 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK951I REGISTER ZERO INVALID AS LINK REGISTER 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK952I REGISTER ZERO INVALID AS WORK REGISTER 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK953I REGISTER ZERO INVALID AS TRACE REGISTER 
Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK954I INVALID CHARACTER PREFIX 

Explanation: Self-explanatory. 

User Response: Correct the prefix and reassemble. 

BDK955I. INVALID CODE SPECIFIED FOR OPERAND XXX 
Explanation: The code specified on LTRTENT macro for operand XXX was 
invalid. The code was not within the range specified on the LTIRTBEG macro 
or was not a self-defining term. 


System Action: The translation table will still be generated, but this code will be 
defaulted. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK956I INVALID CHARACTER STRING OPERAND XXX 
Explanation: The OCHR operand was not specified as character or 


hexadecimal data, or the length of the data exceeded the maximum allowed, 7 
for character and 8 for hexadecimal. 
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System Action: The translation table will still be generated but this code will be 
- defaulted. 


User Response: Correct the error and reassemble if the generated table is 
unusable. | 


BDK957I INVALID FUNCTION FOR OPERAND XXX 

Explanation: The function code specified for operand XXX of the LTRTENT. 
was not CAS1, CAS2, CAS3, CAS4, BSP, ADV, DS, TW, or user-defined 
value from X°* O01” to X°3F’. 


System Action: The translation table will still be generated but this code will be 
defaulted. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK958I INVALID ADDRESS FOR OPERAND XXX 


Explanation: The Address specified in the LTRTENT macro for operand XXX 
exceeded 8 characters, or a mask operand was not specified. 


System Action: The translation table will still be generated but this code will be 
defaulted. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK959I_ INVALID INLEN FOR OPERAND XXX 


Explanation: The value specified for the INLEN operand on the LTIRTENT 
macro for operand XXX was not V, or within the range of 1 to 255. 


System Action: The translation table will still be generated but this code will be 
defaulted. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK960I OFF-POINTED STRING GT65535 OP=XXX 
Explanation: The displacement value exceeded 65 535. 


System Action: The translation table will still be generated but this code will be 
defaulted. | 


User Response: The table should be split into multiple tables and then 
reassembled. 


BDK961I MASK FOR OPERAND xx IGNORED 


Explanation: Invalid mask specified for the LTRTENT macro. 
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User Response: Correct the mask and reassemble. 
BDK962I INVALID LOW RANGE FOR LTRTBEG 


Explanation: The low range was not a self-defining term, or contained too 
many characters. 


System Action: Default low range of 0 is used. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK963I INVALID HIGH RANGE FOR LTRTBEG 


Explanation: The high-range operand was less than the low range or it was not 
a self-defining term, or the operand contained too many characters. 


System Action: Default of 255 is used. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK964I INVALID MODE OPERAND ON LTRTBEG 


Explanation: The mode operand was not ERROR, MOVE, SKIP, or a 
self-defined term. 


System Action: Default of ERROR is used. 


User Response: Correct the error and reassemble if the generated table is 
unusable. 


BDK965I USAGE OF DEFCODE MACRO CONFLICTS WITH THE 
USAGE OF THE DEFLINK MACRO 


Explanation: SEPASMB keywords are in conflict. 

User Response: Correct the error and reassemble. 

BDK966I ADDRESS ‘table entry’ IS TOO LONG 

Explanation: Self-explanatory. 

User Response: Correct the error and reassemble. 

BDK967I TOO MANY OPERAND—EXCESS IGNORED 

Explanation: This message usually occurs with another message indicating the 
failing instruction or operand, and may indicate that correct operands were 


dropped during assembly because of a syntax error. 


User Response: Correct the specific errors indicated by other messages first and 
recheck the syntax of the affected instructions, then reassemble the program. 
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BDK968I CHNGDIR KEYWORD OPERAND INVALID 
Explanation: Invalid CHNGDIR keyword option specified on LSEND. 
User Response: Correct the error and reassemble. 

BDK969I INVALID OPERAND (operand) FOR MACRO (macro) 


Explanation: You specified an invalid keyword or positional operand on the 
named assembler instruction. | 


User Response: Correct the source, and reassemble. 

BDK970I MISSING DEFSTOR SEGMENT SPECIFICATION 
Explanation: You did not specify a required SEGSIZE segment value on the 
DEFSTOR instruction, or you tried to default to a predefined segment value by 
omitting the segment value rather than specifying zero (0). 

User Response: Correct the SEGSIZE operand coding, and reassemble. 


BDK971I INVALID REGISTER ADDRESS 


Explanation: A normal or modified register address contains an incorrect 
segment, length, or displacement. 


User Response: Correct the register address and reassemble. 
BDK972I SINIT MACRO HAS NOT BEEN ISSUED 


Explanation: An INITSEG or ENDINIT instruction appears in your program 
before or without an SINIT instruction. 


User Response: One or more INITSEG instructions must begin with an SINIT 
instruction and end with ENDINIT, and have no other intervening instructions. 
Correct and reassemble your program. 


BDK973I LENGTH 1 TOO LARGE—USE REGISTER FORM 


Explanation: The length field assembled for operand 1 is too large for a 
nonregister address. 


User Response: Recode the instruction using register addressing, which allows a 
length of up to 64K, depending on the instruction. Reassemble the program. 


BDK974I. LENGTH 2 TOO LARGE—USE REGISTER FORM 


Explanation: The length field assembled for operand 2 is too large for a 
nonregister address. 


User Response: Record the instruction using register addressing, which allows a 
length of up to 64K, depending on the instruction. Reassemble the program. 
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BDK975I IMPROPER ERROR CODE PRESENTED 
Explanation: An error code occurred that has no corresponding error message. 


User Response: Request assistance from your programming liaison or service 
facility. 


BDK976I | DEFSTOR IS REQUIRED WITH APENTRY 

Explanation: APENTRY was specified on the BEGIN instruction, but a 
DEFSTOR instruction was not included in your program or the DEFSTOR 
does not precede the FINISH instruction. 

User Response: Check your program, correct any error, and reassemble. 


BDK977I END OF DEFSTOR EXCEEDS 4096 


Explanation: The DEFSTOR instruction occurred partially or completely 
outside the first 4096 bytes of your program. 


User Response: Recode the DEFSTOR instruction at an earlier point in your 
program, within the first 4060 bytes (address X‘FDC’, or earlier). 


BDK978I SEGMENT (segment) LENGTH TOO LONG, MAXIMUM SIZE 
FORCED 7 


Explanation: You defined a segment on the DEFSTOR instruction longer 
than 65 535 bytes. 


System Action: A default of 65 535 is assumed. 


User Response: Restructure your program, if necessary, to accommodate the 
segment limit. 


BDK979I_ USE INVALID, DYNAMIC ASSUMED 


Explanation: The DEFSTOR instruction’s USE parameter does not specify 
STATIC or DYNAMIC. 


System Action: DYNAMIC is assumed. 


User Response: Recode the DEFSTOR instruction if you want the storage 
defined as STATIC. 


BDK980I REDEF LABEL MUST REFERENCE SAME LEVEL 


Explanation: The REDEF keyword of L1 - Ln instructions refer to previous 
L1 - Ln instructions but the levels are not equal. 


User Response: Recode the instructions specifying the same level. 
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C-12 


BDK981I LDSECT ENCOUNTERED BEFORE LEND 


Explanation: Two or more LDSECT instructions without an intervening 


~LEND. 


User Response: Add LEND instruction and reassemble. 


BDK982I REDEF AS label IS SMALLER THAN DEFN. xx FILLER 
BYTE(S) ADDED. 


Explanation: The definition of a level field is smaller than the original 
specification. The field has been padded to the same length. 


User Response: None 


BDK983I_ REDEF AT label LABEL IS LARGER THAN DEFN 
STRUCTURE. EXPANSION TERMINATED. 


Explanation: The redefinition of a level field is larger than the original field and 
the structure size cannot be determined. 


User Response: Correct the redefinition and reassemble. 
BDK984I NO LDSECT ENCOUNTERED BEFORE LEVEL DEFINITION. 
Explanation: A level instruction (Ln) was coded before an LDSECT. 


User Response: Add LDSECT and reassemble. 
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Appendix D. Program Check Codes 


If the 4700 controller encounters an execution request that indicates a logic 
error, a program check results. The following are the hexadecimal codes and 
the explanations for possible program checks: 


Code 


01 


02 


03 


04 


06 


08 


09 


0A 


OB 


oc 


OD 


OE 


Explanation 


Invalid segment specification: An operand specifies a segment that 
was not defined during controller configuration procedure, or 
Segment 14 was specified in an instruction that will cause data to 
be stored or changed in Segment 14. 


Segment overflow: Completion of the instruction requires more 
storage than the specified segment provides. 


Field length error: An incorrect field was specified. The length is 
greater than 2 for an immediate operand; or a SETFPL instruction 
attempted to adjust the field length indicator to a negative value; 
or a value is specified which, when added to the PFP, would be 
greater than the segment length; or the field length was greater 
than 255 for a PAKSEG instruction. 


Return-address stack error: An LRETURN instruction was issued, 
but the return-address stack was empty; or a branch instruction 
was issued, but the stack was full. 


Instruction count threshold: The number of instruction executions 
allowed per transaction has been exceeded. 


No overlay name: The overlay name is not in the resident overlay 
directory. 


Invalid operation or segment code: The instruction operation or 
segment selection code specified is invalid. Make sure that any 
required OPTMOD coding for the instruction was entered and 
that any parameter fields are properly coded. 


No entry point: There is no startup entry point specified. 
Instruction address error: An addressing error has occurred. In the 
case of branch instructions, the program check address field of 


Segment 1 will contain the address of the branch instruction. 


Instruction count exceeded: 65,535 instructions have been 
executed without a release of control. : 


DEFDEL missing or incorrectly used: Either a delimiter request 
was made but no delimiter table was found or the table is not 


halfword aligned. 


EDIT mask error: The mask used with an EDIT instruction 
contains an error. 
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D-2 


OF 


10 


11 


12 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


FF 


Invalid link write control field: The link write control field or write 


options are invalid. 


Communication link write length error: Data length exceeds 4095, 
data length during an LWRITE in batch mode was too long, 


command data length is incorrect; negative-response data length is 


incorrect, or there was a negative response to setting or testing 
sequence numbers. 


Invalid parameter list, or parameter space is insufficient. 
Indexing is not active. | 

Program check in called application program. 

Called application program dak found. 

APCALL link stack full. 


Recursive APCALL to an application program defined as 
USE=STATIC during configuration. 


APCALL storage pool defined by MAXSTOR=was exceeded. 
APCALL segment pool defined by MAXSEG=was exceeded. 


APRETURN issued with no APCALL link stack entry - no calling 
application program. 


Register address contains invalid segment space ID. 

No transient pool: a transient pool was not defined for this station. 
Transient application size error: The target transient application 
program will not fit in the largest transient area defined in the pool 


for this station. 


System error. 
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Appendix E. Status Codes 


The list below and the table that follows gives information about the two bytes 
of status bits that are set in SMSDST when an exceptional condition occurs 
(condition code=X‘02’). The status bits in the first byte (SMSDS1) indicate 
the general condition: 


Bits in SMSDS1 Condition 

en 1 (X‘01’) Incorrect length 
ecuire je (X‘02’) Unit check 

Stes 1-- (X‘04’) Command reject 

peer eee (X‘08’) Attention 

ees (X‘10’) Prior operation 
eee (X‘20’) Data check 

.]------ (X‘40’) Unit exception 
{--<-=-- (X‘80’) Intervention required 


The status bits in the second byte (together with those in the first) indicate the 
specific condition, as shown in the table. 


The table applies to communications between stations. To use the table, find 
the status bits in the leftmost column of the table, the applicable instruction in 
the third column; read the explanation of the corresponding condition in the 
second column of the table. 


A status value not in the table may be a combination of status codes. When 
such status values occur, review the table and search for the highest value first, 
then the next highest value. Remember that a status bit can be shared by more 
than one status code. 
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Status Bits Condition Instruction 


en 1 Incorrect length: LREAD 
(X‘0101’) | LWRITE 
The message was longer than the space available , 
in the segment (that is, the space between 
the PFP and the end of the segment). 
Or the message was longer than the value of the FLI 
when the FLI was nonzero and less than 
or equal to the length between the PFP 
and the end of the segment. 
Or a write to a logical work station 
contained more than 255 bytes. 


Action:Change the segment so that 

enough space is available for the message. 
Or, if the end of the field was unexpected, 
change the FLI. 


----- 1-- -------1 Command reject: LWRITE 
(X’0401°) | 

No asynchronous station entry point defined 
in the current controller application program 
of the station receiving the message from the 
write operation. One of the following may 
may have caused the condition: the 
receiving or sending application program 
may have been incorrect; 
a message may have been sent to all stations 
whether they could receive it or not. 


Action: |\f necessary, change the 

application program of the receiving station 
so that it has an asynchronous station entry 
point or change the application program 

of the sending station so that no messages 
are sent to the other station. | 


Figure E-1 (Part 1 of 2). Status Codes 
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Status Bits 


uate , earner Pe 
(X‘0402’) 


Condition 
Command reject: 


The station ID specified was not the ID 
of any station that exists for the con- 
troller application program sending the 
message. One of the following may have 
caused the condition: the station IDs 
may have been specified incorrectly 
during the controller configuration; 

the application program may have specified 
the station ID incorrectly; or a message 
may have been broadcast to all stations 
whether they existed or not. 


Action: If necessary, check the controller 
configuration and the controller application program 
and make corrections. 


Figure E-1 (Part 2 of 2). Status Codes 


Instruction 


LWRITE 
LCHECK 
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Status Bits 


Bee 
(X’0800") 


oe, enrages 
(X’4000") 


(x’8000" ) 


Figure E-2. Status Codes 


Condition 
Attention: 


The operator signaled attention by pressing 
the Reset key twice in succession. 

The operation was in a wait state with an 
indeterminate end point (an attention does 
not affect a wait state with a determinate 

end point). The wait state may have re- 
sulted from such condition as: | : 

a read from a 4704 terminal or the central pro- 
cessor; intervention required for a printer; 
failure to encode a magnetic stripe __ 

after the magnetic stripe encoder was enabled. 


Action: Prompt the operator to carry out 
the appropriate action (such as replacing the forms 
on a printer). Reset the magnetic stripe encoder 


if it was enabled. 


Unit exception: 


No message was found for the read operation 
because no message was pending for the station. 


Action: |gnore the lack of a pending message. 


Intervention required: 


A message was already pending for the station 


that was to receive the message from the write 


operation. 


Action: Wait until the pending message 
has been read. 


E-4 4700 Controller Programming Library, Volume 1: General Controller Programming 


_ Instruction 


LCHECK 


LREAD 


LWRITE 
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Split Programs 


The split program structure separates the instruction section of your program 
from the constants section, and is supported on the 4700 for compatibility with 
the IBM 3600 Finance Communication System. You must specify the split 
option during configuration. The split program structure can be used with 
overlay programming, and applies to either the relocatable or nonrelocatable 
programs described earlier. 


The following paragraphs describe the operands of the instructions in 
Chapter 5 that control the split programming capability. 


APOPT Instruction: SPLIT Operand 


BEGIN Instruction 


APBNM Operand 


INSNAME Operand 


DEFCON Instruction 


LEXEC Instruction 


The split assembly option (SPLIT=Y specified in the APOPT instruction) 
produces two CSECTs. The OVLYSEC instruction label is used to name the 
constant section and an internally generated label is used to name the 
instruction section. If SPLIT=Y is specified, SECTION AUTO is assumed 
unless overridden by a SECTION instruction. The default is (N). 


If SPLIT=Y option was specified in the APOPT instruction, two CSECTs will 
be generated; a CSECT with the name identified by APBNM=name for the 
constants and a CSECT with an internally created unique name for the 
instructions. 


A 1-to-8 character symbolic name to be associated with the instruction portion 
of a split application program. If this name is omitted, the internal name 
BOKIN«x is assigned, where x is an integer in the range 1-999. 


When SPLIT=Y and RELOCEN are both coded, (in the APOPT instruction) 
and a label in the instruction section of the program is referred to in the 
(LABEL-APBNAME) format, the format must be changed to: 


e (label-BQKIN1), where BOKIN1 is the CSECT name of the instruction 
portion 


« of the (label-name) format where name is the symbolic name assigned to 
the instruction section by the INSNAME operand of the BEGIN 
instruction. 


When the program is assembled using the SPLIT option, the addressed 
instruction must be in an instruction section, if the addressed instruction is in a 
constant section, the results are unpredictable. 
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LLOAD Instruction 


When you use the LLOAD instruction to load a split overlay containing a 
constants section only, set the ELPCSF flag and the ELPSEG and ELPCLA 
parameters. Do not set the ELPISF flag. For a split overlay containing an 
instruction section only, set the ELPISF flag and the ELPILA address. Do not 
set the ELPCSF flag. In either case, setting both flags causes program check 
(hex 17), invalid parameter list. 


_ ELPCSF 
If the SPLIT option is specified and this flag is on in ELPFLG then the 
LLOAD instruction derives the load address for the constants from the 
ELPSEG and ELPCLA parameter list fields. 


ELPISF 
If the SPLIT option is specified and this flag is on in the ELPFLG field 
then LLOAD obtains the load address for the instructions from the 
ELPILA parameter list field. 


LSEEK Instruction 


The table must be located in the constants section of a program assembled with 
the SPLIT=Y option in the APOPT instruction. (Use the LSEEKP instruction 
to search a table located in the instruction portion.) | 


LSEEKP Instruction 


If SPLIT=Y is coded in the APOPT instruction and the table is in the 
instruction portion of a split program, the PFP and FLI are not changed. 
LSEEKP searches tables in either the constants or instruction section of a split 
or non-split application program. 


You must set the following parameter list fields before issuing the LSEEKP 
instruction. 


SKPFLG1 A 1-byte flag field. 
Hex Code Meaning 


xxOx Xxxx The table is in a non-split program or in the constants portion of 
a split program. 


Xx 1x Xxxx The table is in the instruction portion of a split program. 
LSEEKPL Instruction 


NOINST 


Specifies that the table to be searched is located in a nonsplit program, in the 
constant portion of a split program, or in any segment. 


INST 


Specifies that the table to be searched is located in the instruction portion of a 
split program. 7 
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OVLYSEC Instruction 


inst-org/const-org Operand 


SECTION Instruction 


SEGCODE Instruction 


SEGCOPY Parameter List 


OVLYSEC defines the load addresses for the instruction section and the 
constant section of an overlay assembled with the split option (SPLIT=Y in the 
APOPT instruction). 


The inst-org/const-org operand is used to specify the load address for the 
instruction and constant sections, respectively, of an overlay when assembling 
with the split option in effect. One of these parameters must be specified. If 
one is omitted, the omitted operand will default to an ‘*’ specification. 


INSTR 
Specifies the presence (Y) or absence (N) ofan instruction portion in the 
overlay section. This applies only when SPLIT=Y is specified on the 
APOPT instruction. The default is Y. 


INSNAME 
A 1-to-8 character symbolic name to be associated with the instruction 
portion of a split application program. If this name is not supplied, the 
instruction portion is given the name BOKIN«x, where x is in the range 
1-999, 


INSTR 
Specifies that following instructions are to be placed in the instruction 
section. INSTR works only if SPLIT=Y has been specified. 


CONST 
Specifies that following instructions are to be placed in the constant 
section. CONST works only if SPLIT=Y has been specified. 


AUTO 
Causes an automatic collection of instructions and constants into 
respective CSECTs. AUTO works only if SPLIT=Y has been specified. 


For the SPLIT=Y option, two CSECTs will be generated: one with the name 
specified in SEGCODE for the constants and another with an internally 
generated name for the instructions. 


INSNAME Operand: The INSNAME operand is a 1-to 8-character symbolic 
name to be associated with the instruction portion of a split application 
program. If this name is not supplied, the instruction portion is given the name 
BOKIN«x, where x is in the range 1-999. 


Byte 1 - Segment /Section Indicator: If the second segment number is 14, this 
field can be specified as a character C or I, to identify whether the constant or 
instruction section of the segment is being referenced. Unless a value of I is 
coded, C is assumed. If the application program occupying Segment 14 for the 
specified station was assembled without the SPLIT=Y option, this field is 
ignored. 
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STOVLY Instruction 


This STOVLY identifies the origin address of the constant portion of a 
split application overlay. 

I 
This STOVLY identifies the origin address of the instruction portion of a 
split application overlay. 

A 


The preceding SECTION instruction controls whether this STOVLY 
identifies the instruction or constant portion of a split application 
overlay. The default is A. 


TABLE Instruction 


An LSEEK table must be in Segment 14 (for a split program, the constants 
section). A table for LSEEKP can be in any part of the program. The SRT 
operand is used with the LSEEKP instruction to provide a binary search of a 
sorted table. 


Segment Indexing 


Segment indexing is the ability to store a displacement value in a register and 
have this displacement value added to the displacement (address) of data 
referenced in a machine instruction. For example, consider the machine 
instruction: 


pion al reg defld 


er ee 
se ao 


1112 15 16 19 20 31 


Without segment indexing, D2 points directly to the data within Segment S2 
that is to be added to R1. With segment indexing, an index value is added to 
the displacement in D2 to locate the data within Segment S2. The index value 
is a binary number from O to 65 535 and is located in the low-order 2 bytes of 
any of the general registers from 1 to 15. Register 0 has a special meaning and 
is discussed later. The use of indexing allows real-time addressing of data 
during program execution. 
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Segment indexing is applicable to all instructions that use fixed-field addressing 
with the exception of the SETFPL and SETSPF instructions. Before using 
segment indexing, an application program must first define a 16-byte Index 
Register Number Table (IRNT) in any segment except Segments 0 and 14. 
Each 1-byte field of this table corresponds to a segment, with byte 0 
corresponding to Segment 0, byte 1 to Segment 1, and so on, as follows: 


Byte Applies to Segment 
0 0 

| ] 

2 2 

3 3 

@ @ e 

° e e 

e @ e 

15 15 


| 1-byte | 


Because the instructions that use indexing can have either one or two 
fixed-field operands, each byte of the IRNT contains two 4-bit entries for the 
application segment. The first four bits refer to operand1 of an instruction, and 
the second four bits refer to operand2. (FF instructions have both operand1 
and operand2. FI instructions have only operand1. RF and SF instructions 
have only operand2.) Each four bits represent a register number from 1 to 15, 
and the specified register contains the actual index value. If a 0 is specified as a 
four-bit entry in the IRNT, then the index value for that operand (opr! or 
opr2) referring to that particular segment is 0, regardless of the contents of 
register 0. 
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In the following example, instructions with fixed-field operands that refer to 
data in Segment 1 will have the value in register 5 (a decimal 256) added to the 
displacement for both operandi and operand2 of the machine instruction. 


byte 0 byte 1 byte 15 
of IRNT of IRNT of IRNT 


A Vy N operand2 


reg O reg 4 reg 5 reg 6 reg 15 


Some segment 


segment 0 
(general register) 


The purpose of two register numbers per segment is to simplify simultaneous 
index addressing of two different sets of DEFLDs (for example, two different 
record formats) within one segment. For simplicity, if the user requires an 
application with simultaneous index addressing of two different sets of 
DEFLDs, place each set in a different segment. Then, the program is not 
concerned with the operand1/operand2 distinction because only one index 
register is used per segment, as in the above example. | 


A record of the indexing status for each station and segment is maintained 
internally by the controller and determines whether indexing is active or 
inactive for the station and segment. Indexing is initially inactive for all 
stations. Each station requiring indexing must execute a SETX ON instruction 
to activate indexing for that station, to define the location of the IRNT, and to 
cause the controller to record the active/inactive status for each segment that 
the station can access. The indexing status for Segments 13, 14, and 15 is 
unique for each logical work station. If two Segment Os exist for one station, 
and if indexing is set active (or inactive) for one Segment 0, it is actually set 
active (or inactive) for both. 


The SETX ON instruction can also be used to cause an indexing active station 
to change from one IRNT to another. The controller’s indexing active /inactive 
status is updated for the new IRNT contents. 


The SETX OFF instruction is used to deactivate segment indexing for the 
current station. 


When indexing is active for a station, the SETXREG is used to modify an 
active IRNT. SETXREG updates the segment’s IRNT and also updates the 
active/inactive status as recorded by the controller. Using instructions such as 
STFLD and MVFXD to modify an IRNT entry does not update the controller’s 
recorded status for the segment. 
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If a segment does not require indexing but has been activated with a SETX ON 
instruction, it is generally better to change the entry in the IRNT for that 
segment to X‘00’ than to have indexing active for the segment with an index 
value of zero in the indexing register. Both approaches would cause the 
relevant fixed-field operands to address the same data; however, address 
resolution with an index value of zero is slightly slower. 


The TESTX instruction is used to test whether indexing is active for a specified 
station or segment. 


The following example illustrates how an application program might take 
advantage of segment indexing to refer to fields in a sequence of similar 
records. The example assumes that indexing is active (the SETX ON 
instruction has been issued) for the station and the IRNT entry for Segment 2 
is X*33’. Each record is 50 bytes long and contains information describing a 
customer’s checking account, as follows: 


Displacement 
into Segment 
6) ACTNAM DEFLD 2,0,20 NAME 
20 ACTNUM DEFLD 2439 NUMBER 
29 ACTFLG DEFLD 2 ngee FLAGS: 
ACTFMN EQUATE xX'OOO1' ON -- No minimum balance 
required 
ACTFOV, EQUATE xX'0002' ON -- Eligible for 
overdraft 


31 ACTBAL DEFLD 2,,4 CURRENT BALANCE 


Assume that 5 of the above records are consecutively located in Segment 2, 
with the first record beginning 6 bytes into the segment. (The records might be 
part of a disk/diskette data set where each 256-byte block contains 5 records.) 


N) | . 
0 6 56 106 156 206 256 


5 


segment 2 
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The following application computes a total of the current balances for those_ 
accounts that are eligible for overdraft. The IRNT indicates that register 3 is 

. Segment 2’s index register. Upon completion, register 4 will contain the desired 
total. | 


H000 DEFCON H‘0’ 

H006 DEFCON H‘6’ | 
H050 DEFCON H‘50’ 
H256 DEFCON  H‘256’ 


LDFLD 3,HO006 Load index register with address 
of record 1 | 
LDFLD 4,H000 Initialize total to zero 
LOOP TSTMSKI ACTFLG, 
, ACTFOV Is account eligible for overdraft 


JUMP $MZ,NEXT NO —then go past for next record 
ADDFLD 4,ACTBAL Yes -—add current balance to 
total 


NEXT ADDFLD 3,H050 Add record length to index register 
—  CAFLD 3,H256 Are there more records 
JUMP ~LT,LOOP Yes —go check next record 
No —desired total is in 
register 4 


Notes: 
1. This instruction will be executed 5 times, once for each record. 


The following table shows addresses (with respect to Segment 2) 
actually referenced by the field ACTFLG on successive execution. 


Displacement 

(in TSTMSKI’s Index Address 
Execution Machine + Value = Actually 
Number Instruction) (in register 3) Referenced 
1 29 6 35 
2 29 56 85 
3 29 106 135 
4 29 156 185 
5 29 206 235 


2. Because ACTBAL references Segment 2, it also will be indexed. 


3. To further reduce application program execution time and size, the 
TSTMSKI and JUMP instructions could be replaced with a LIFOFF 
instruction, and the ADDFLD, CAFLD, and JUMP instructions could be 
replaced with a BRANX instruction. 
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Indexing Affects on Instructions 


This section describes how indexing affects certain instructions. 


BRANX Instruction 
Because the instruction algebraically increases the low-order 2 bytes of a 
register, BRANX can also be used as an aid to simplify table processing. 
LDRA Instruction 
If indexing is active in the specified segment, LDRA adds the index value to 
the specified displacement before it is placed in the operand 1 register. When 
referenced during program operation, a register address is unaffected by 
indexing. 
MVDI Instruction | 
If the fixed field is indexed, then the new setting of the primary field pointer 
will include the index value. 


MVEFXD Instruction 


If the fixed field is indexed, then the new setting of the primary field pointer 
will include the index value. 
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SETX--Enable/Disable Segment Indexing 


The SETX instruction activates or deactivates segment indexing for the current 
station. When the first operand is ON, indexing is activated for this station and 
the location of the Index Register Number Table (IRNT) is also specified. 

_ When the first operand is OFF, indexing is deactivated for this station and no 
teference is made to the IRNT. Register- or modified register-addressed 
operands cannot use indexing. 


The IRNT is 16 bytes long and resides in any segment except 0 or 14. It has 
the following format: 


Byte 0 ] Z 15 
uu ue, §-_ em em, gemma” emma, = EE 
(ont [on [ot [ort [oa 
~~ eee eee ee ee” ~~ 
Applies to 0 \ , 15 
Segment 


Because the instructions that use indexing can have either one or two 
fixed-field operands, each byte of the IRNT contains two 4-bit entries for the 
applicable segment. The first four bits refer to operand 1 of an instruction, and 
the second four bits refer to operand 2 (FF instructions have both operand 1 
and operand 2, FI instructions have only operand 1, and RF and SF 
instructions have only operand 2). Each four bits represent a register number 
from 1 to 15, and the register contains the actual index value. If a 0 is specified 
as a 4-bit entry in the IRNT, indexing is not used for that operand. 


Note: To use this instruction, you must code the P68 operand of the OPTMOD 
configuration instruction. 


Name Operation Operand 


defld2 
[label] SETX { OFF|ON 3} ,, (defrf2) 

(reg2 ) 

seg2,disp2 


ON 
Indexing is to be activated for this station. 


OFF | 
Indexing is to be deactivated for this station. | 
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operand 2 aa. 
Is the label of a DEFLD instruction which defines the location of an 
IRNT. The implied length is ignored; the table is assumed to be 16 bytes 
long. The segment number associated with this table cannot be 0 or 14. 
If a register-addressed IRNT is specified, the segment space ID in the 
register must equal the current segment space ID. 


Condition Code: The code is not changed. 


Program Checks (hex): 01, 02, 09, or 27 can be set. 
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SETXREG--Set Index Register Number 


The SETXREG instruction modifies the contents of the IRNT for a station that 
is active for indexing. See the SETX instruction to activate indexing for a 
station. See SETX for a description of the IRNT. 


Note: To use this instruction, you must code the P68 operand in the OPTMOD 
configuration macro. 
Name Operation Operand 


DU 


(seg1, [reg1] ) i { (seg2[,reg2] ) ] 
[label] SETXREG P | 


(seg2[,reg2] ) 


segl 
Locates the byte in the IRNT that corresponds to seg1. If seg1 is 
specified, the leftmost four bits of the located byte are set to reg1. If seg1 
is omitted, no change is made to the leftmost four bits in any byte of the 
IRNT. 


regi 
Is a decimal integer from O to 15. Integers 1-15 indicate a register 
number. If segl is specified, the default for reg] is 0. When reg] is 0, 
the index value is zero regardless of the contents of reg0. 


seg2 
Locates the byte in the IRNT that corresponds to seg2. If seg2 is 
specified, the rightmost four bits of the located byte are set to reg2. If 
seg2 is omitted, no change is made to the rightmost four bits in any byte 
of the IRNT (unless DUP is coded). 


reg2 
Is a decimal integer from 0 to 15. Integers 1-15 indicate a register 
number. The default for reg2 is 0, if seg2 was specified. If reg2 is 0, the 
index value is zero regardless of the contents of reg0. 

DUP 
Is an abbreviation that will provide seg2,reg2 with the same values given 
to segl,reg1. DUP is valid only when operand 1 is specified. 

Condition Code: The code is not changed. 


Program Checks (hex): 01, 09, or 12 (indexing inactive) may be set. 


Appendix F. Functions Retained for 3600 Compatibility F-13 


F-14 4700 Controller Programming Library, Volume 1: General Controller Programming 


TESTX--Test for Active Indexing 


The TESTX instruction tests the indexing status (active or inactive) for a 
station or a specified station segment. The instruction points to a parameter list 
(see COPY DEFTSX). A flag byte (TSXFLG) in the parameter list must be 
set list (see COPY DEFTSX). A flag byte (TSXFLG) in the parameter list 
must be set to X‘00’ or X‘80’ as follows: 


TSXFLG=00 (test indexing status of station) 


To test whether indexing is active for a specified station, the program must first 
initialize the TSXFLG field to X‘00’ and enter a station number in the 
TSXSID field of the parameter list. If indexing is inactive for the specified 
station, the parameter list is unchanged. 


If indexing is active for a specified station, the TSXFLG field is set to X‘02’ 
and the segment number and address of the IRNT are also returned in the 
parameter list in fields TSXSEG and TSXADR, respectively. 


TSXFLG=80 (test indexing status of station and segment) 


To test whether indexing is active for a specified station and a specified 
segment, the program must first initialize the TSXFLG field to X‘80’, enter a 
station number in the TSXSID field, and enter a segment number in the 
TSXSEG field of the parameter list. 


If indexing is inactive for the specified station, the parameter list is unchanged. 


If indexing is active for the specified station, the two register numbers from the 
IRNT for the specified segment are returned in the parameter list in fields 
TSXREG1 and TSXREG2. TSXFLG is set to X‘82’ if the segment is not 
active for indexing or to X‘83’ if the segment is active for indexing. 


Testing for active/inactive indexing for the segment is via the controller’s 
internal indicators which are set/reset through SETX and SETXREG 
instructions. 


If the TESTX request is not valid (for example, an invalid station). TESTX will 
not modify any part of the parameter list. 


Note: To use this instruction, you must code the P68 operand on the OPTMOD 
configuration instruction. 


Name Operation Operand 
defld2 
[label] TESTX (defrf2) 
(reg2 ) 
seg2,disp2 
operand 2 


Defines the field that contains the parameter list. The implied length is 
ignored; the parameter list is fixed in length. The segment number for this 
operand cannot be 14. 
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Condition Code: One of the following is set: 
Hex Code Explanation 
01OK  TESTX was successful ae 7 
02 ID Invalid station ID in the parameter list 
04 IS Invalid segment number in the parameter list 
| (can only be returned if 
a segment’s indexing status is being tested). 


Program Checks (hex): 01, 02, 09, 11, or 27 can be set. 
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Appendix G. Program Communication with the System Monitor 


Application Program Debugging 


You can use the control operator’s console to debug controller application 
programs. Any application program may be accessed as it operates on behalf of 
one of its associated logical work stations. The following may be done when in 
debugging mode: 


Programmable Input Facility 


Address stop: The controller application program can be stopped just before an 
instruction is executed so that station storage or global storage can be 
examined. 


Display: Any location in programmable storage, station storage, global 
storage, or the controller application program may be displayed on the 
4704/3278. 


Alter: Any location in programmable storage, global storage, or the controller 
application program may be altered by entering the hexadecimal equivalents 
of the bytes to be altered. The storage or application program is altered only 
for the current day’s operations; a permanent change requires that the 
application programs or configuration be changed by creating a new operating 
diskette. Because anyone who knows the system monitor logon procedure 
and the operator password can alter an application program, you should be 
careful to protect the password. 


The application program on the diskette may also be altered using the 032 
command. 


Note: Any alter command, including 032, will not be accepted if the diskette 
has been declared operational during configuration assembly 
(DSKOP= YES). 


Instruction step: The controller application program can be stopped after each 
instruction is executed. The addresses of the instructions and 8 bytes at those 
addresses are displayed in hexadecimal when the controller stops. To execute 
the next instruction, the EOM key is pressed. 


Harad-copy trace: The order of execution of the instructions in a controller 
application program can be traced. Each instruction address and 8 bytes at 
that address are printed on the specified hard-copy terminal (that is, the 
journal and administrative printers). Hard-copy trace differs from instruction 
step in that the controller does not stop after each instruction is executed. 


Checking indexing status: If segment indexing is being used, its status may be 
checked using command 15. 


The programmable input facility of the system monitor enables.a logical work 
station to input commands to the system monitor. These commands could be 
stored. in disk or diskette data sets, or could be received from a host program 
communicating with the logical work station. A controller application program 
could be written specifically to support logical work station control of the monitor, 
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or routines could be incorporated into programs doing other processing also. The 
program issues LREADs and LWRITEs to station 1 (SMSDSS=1) to 
communicate with the monitor. A flag in the GMSFLG field (GMSFPCM) is set 
on by the controller while the system monitor is processing the command. This 
flag is set to O when command processing is complete. 


If the work station is also in communication with a host application program that 
accepts input from a host terminal or if the Communications Network 
Management/Controller Support (CNM/CS) facility is installed on your system, 
a host terminal can become the system monitor terminal for any attached 4700 
controller. 


When not in communication with a work station or being controlled by a remote 
operator at the host, the system monitor can still be controlled from a 4704/3278 
_ keyboard display with all commands valid. 


Monitor Restrictions cide Programmable Input Control 


When the programmable input facility is being used, some system monitor 
commands are limited or not allowed. The following list notes the differences. 


Li 


Zi 


3. 


4. 


If the 049 command had been issued the line value that was entered is ignored 
except on the 001 command. Each response will contain the full message 
normally displayed. 


Debugging mode is not allowed for the station that is currently communicating 
with the system monitor via station reads and writes. If a Debug request 
(123) for that station is sent, a 90013 error message will be returned. 


Logon (three Attentions plus the monitor ID) is not required when using the 


programmable input facility. Any write (valid or not) to station 1 will serve 
as the logon, provided that no one else is logged on as the monitor. When you 
are logged on in programmable input mode, only the 000 command (if in 
Debug mode, must be 00, then 000) or a station read or write error will log 
off the monitor and make it available for another station, CNM, or 4704 
terminal. A 90032 message will be sent if a station read or write error occurs. 


If a station attempts to communicate with the system monitor while it is 
logged on to another station, the request will be rejected and a 90033 error 
message returned, 


Note: If the ipetshs monitor is currently logged on to a 4704/3278 terminal, 
the message will not be read until a logoff (000) is issued at the 4704/3278. 
A flag in GMSIND field (GMSISMM) is set on whenever a 4704/3278 is 
logged on to the system monitor. To avert a possible lockout, this flag should 
be checked before a write operation is requested from the monitor. 
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After a station writes a command to the system Monitor it should check for 
the LWRITE completion. This check should be in the form of a pause loop 
that includes the following instruction. 


LCHECK ST,TIO 


In the pause loop you should check the SMSAFL flag for appropriate 
interrupts. Waiting for interrupts in this manner will prevent possible 
lockouts where the station and the System Monitor attempt to write to each 
other at the same time. 


A zero length write fo station 1 is treated as an Attention or Enter key. The 
action taken by the system monitor depends on the function it is executing at 
the time it reads the zero length write. If an attention was expected, the zero 
length write is accepted; however, a 90001 error message is returned. You 
should ignore the error message. If both an Attention and Enter key can be 
accepted, the system monitor will always assume that the enter key was the 
response. 


During create disk (999) or transmit (888), any station write by the station 
logged on to the system monitor will be interpreted as an attention after 
communication with the host has started. If a read CPU is outstanding, the 
read will break with an attention error (0800) or prompt message 00020 or 
00090. 


While in programmable input mode, pressing the Attention key 15 times in 2 
minutes on any idle 4704 or 3278 will log off the system monitor. Three 
more attentions should activate the monitor at that 4704/3278 and lock out 
the programmable input facility. If, at the time the 15 attentions are given, 
the monitor is in create disk (999) mode, logoff will not take place; instead 
the attentions will be ignored. 


If create disk (999) is going to be used, the controller configuration procedure 
must specify at least one read buffer of 256 bytes or more (CNL operand on 
the COMLINK macro). If the expanded system monitor with multiple-block 
support is used (MONITOR=EXPMB in the STARTGEN macro), more than 
one read buffer should be specified. The number of required read buffers is 
proportional to the speed of the communications line. (Enough buffers 
should be specified so that, when a diskette write operation is in progress, 
data from the host can continue to be accumulated.) Two read buffers are 
usually sufficient for line speeds up to 4800 bits per second. To realize any 
performance benefits from the expanded system monitor’s support of 
multiple-block I/O, communication-line speeds of at least 7200 bits per 
second must be used. 
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MVFLDR-Move Field Reverse 5-295 
OPTMOD 5-295 
P60 5-295 
MVFLDR, using 3-5 
MVFXD 2-14 
MVFXD--Move Fixed 5-297 
MVFXD, using 3-5 
MVFXDR~—Move Fixed Reverse 5-299 
OPTMOD 5-299 
P60 5-299 
MVFXDR, using 3-5 
MVSEG--Move Segment 5- 301 
MVSEG, using 3-5 
MVSEGR-Move Segment Reverse 5-303 
OPTMOD 5-303 
P60 5-303 
MVSEGR, using 3-5 
M45 5-133 
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N primary and secondary application programs 2-7 
primary and secondary programs, defining storage for 2-11 


name 5-27 primary application program 2-2, 2-4 
Nested Overlay Sections 2-5 : primary field pointer (PFP) 2-15 
next sequential instruction 2-25 primary-secondary cross-addressing 2-13 
next sequential instruction (NSI) 5-33 | PRINTI-—Print Macro Expansion 5-315 
BRANLR-Branch and Link Register 5-35 PRINTI, using 3-4 
BRANR 5-35 priority dispatch table 2-23 
LRETURN 5-35 priority dispatching, work station 2-23 
non-resident 2-4, 5-20 priority, entry point 2-24 
nonrelocatable 2-2 private storage 1-4 
Nonrelocatable Overlays 2-5 processing session, definition 2-24 
nonrelocatable programs 2-1, 2-2 program calling, instructions for 3-14 
nsi 5-192 . program check address 2-27 


program check codes 2-27, D-1 

program checks 1-5 
O program checks, entry point-related 3-2 
program checks, primary/secondary ap processing of 2-28 
program control 1-5 
program control instructions 3-14 
program interrupts, entry point priority of 2-24 
program-to-program data transfer 3-14 
programmable input facility G-1 
publications, related X-1 
punctuation 4-1 


operand 1 4-2 

operand 2 4-2 

operands 4-1 

operands, addressing 2-13 
operating diskette 1-3 
operations, logical 3-12 
optional instruction 5-9 


optional instruction modules 2-28 se Bae 
optional instruction modules, determining presence of 2-28 P21 $-253 
options 4-1 - | Sater 


OPTMOD 5-9, 5-57, 5-61, 5-65, 5-69, 5-71, 5-75, 5-101, 5-133, 
5-145, 5-159, 5-205, 5-225, 5-237, 5-249, 5-253, 5-287, 5-289, 
5-322, 3-327, 5-395, F-10, F-13, Fel 

DECOMPTEB 5-71 
LTRTBEG 5-255 

overflow 4-8 

overlaid program sections, defining 3-3 

overlay programming 2-1, 2-4 

OVLYSEC 2-2, 2-4 

OVLYSEC-—Define Load Address and Entry Point 5-305 


P26 5-71, 5-75 

P27 5-57, 5-61 

P31 5-9, 5-65, 5-101, 5-287, 5-289, 5-395 
P32 5-249 

P34 5-69, 5-159 

P5C 5-205, 5-237 

P68 5-322, F-10, F-13, F-15 


APOPT 5-305 Q 
OVLYSEC-ENDOVLY pair 2-2 
OVLYSEC, using 3-3 quotation mark 4-5 
P R 
packing/unpacking data with PAKFLD/PAKSEG and REBASE-—Restore the Base Register for a DSECT 5-317 
UPKFLD/UPKSEG 3-7 LDSECT 5-317 
pairs, compaction character 3-8 : SAVEBASE 5-317 
PAKFLD—Pack Field 5-307 REBASE, using 3-3 
PAKFLD, using 3-7 reg 2-16, 4-4 
PAKSEG—Pack Segment 5-309 register address 5-89 
PAKSEG, using 3-7 DEFCON 5-89 
parameter list 5-55 DEFLD 5-89 
parameter lists, system-defined DEF xxx 2-26 EQUATE 5-89 
passing data between programs 3-14 register addresses 4-5 
PAUSE-—Suspend Processing 5-311 register addressing 2-13 
PAUSE, ending an active session using 2-25 register addressing, description and example 2-16 
PAUSE, using 3-14 register 1 2-29 
PC operand, defining a program check entry point with 2-26 register, using a base addressing 3-3 
PFP and FLI, source of values for 2-19 registers 2-7 
PLPCMD--Post-List Processor Commands 5-31 3 registers, allocating extra 2-12 
PLPCMD, using 3-4 | registers, passing 2-29 
pointers 2-21 related publications X-1 
post-list processing 5-313 release control 2-12 
PRIDSP 5-155 release 3 changes/additions vii 
LCHECK 5-157 releasing control, instructions for 3-14 
LCHECK. ST 5-157 releasing work station control 2-25 
LCONVERT 5-159 reloc 2-2 
PRIDSP, defining dispatch tables using 2-23 | relocatable 2-5 
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Relocatable Overlays 2-5 

relocatable programs 2-1, 2-3 

resident 2-2, 2-4 

restart 2-24 

resuming processing, entry point priority of 2-24 
return-address stack 3-16, 5-151 

root 2-2 


S 


SAVEBASE~—Save the Base Register fora DSECT 5-319 
LDSECT 5-319 
USEBASE 5-319 
SAVEBASE, using 3-3 
SCALE-Scale Number 5-321 
SCALE, using 3-5 
scb (string control characters) 3-8 
scratch-pad 3-17 
SCRPAD-Scratch Pad 5-327 
secondary application program 2-4 
secondary application programs 2-2 
secondary field pointer (SFP) 2-15 
SECTION 2-6 
SECTION—Section Control 5-339 
BEGIN 5-339 
OVLYSEC 5-339 
SEGCODE 5-339 
SECTION, using 3-3 
sections 2-1 
sections, defining program 3-3 
seg 4-4 
SEGALLOC 3-17 
SEGALLOC-—Segment Allocate . 5-341 
APRETURN 5-341 
SEGFREE 5-341 
SEGCODE 2-2 


SEGCODE--Application Program Section Identifier 5-343 


SEGCODE-ENDSEG pair 2-2 
SEGCODE, ENDSEG 2-5 
SEGCODE, using 3-1, 3-3 
SEGCOPY--Segment Copy 5-345 
SEGFREE 3-17 | 
SEGFREE-—Segment Free 5-349 
APCALL 5-349 
APRETURN 5-349 
SEGALLOC 5-349 
segment 1-5, 2-7 
segment header 2-13 
segment header addressing 2-13, 2-15 
segment headers, programming notes about 2-19 
Segment Indexing 4-2, 5-20, F-4 
segment length indicator (SLI) 2-15 
segment number, use in register addressing 2-17 
segment space ID, definition 2-12 
segment space ID, use in modified register address 2-17 
segment space ID, use in register addressing 2-17 
segment 0 2-7, 5-19, 5-93, 5-94, 5-139, 5-167, 5-351 
APCALL/APRETURN 5-19 
DEFCON 5-93 
DEFLD 5-93 
segment 0 sharing 2-12 
segment 0, addressing registers in 2-13 
segment 1. 2-7, 5-19, 5-79, 5-179, 5-183, B-21 
BEGIN 5-79 
EQUATE 5-79 
segment 13 1-5 
segment 14 1-5, 5-77, 5-305, B-3 
APOPT 5-77 
LLOAD 5-306 


STOVLY 5-306 
Segment 14 
5-9 
DEFCON 5-9 
segment 15 1-5, 5-19, 5-83, B-10 
segment-displacement addressing 2-13 
segment, specifying the 2-13 
segments 1-5 
segments 2-12 2-7 
SELECT-Select Segment 0 5-351 
SELECT, using 2-12 
SETFLDI-—Set Field Immediate 5-353 
SETFPL 2-16 
SETFPL—Set Primary Field Pointer and Field Length 
Indicator 5-355 
BEGIN 5-355 
DEFCON 5-356 
DEFDEL 5-355 
DEFLD 5-356 
SETFPL, example and use 2-19 
SETSFP 2-16 
SETSFP-Set Secondary Field Pointer 5-361 
BEGIN 5-361 
DEFCON 5-361 
DEFDEL 5-361 
DEFLD 5-361 
setting bits on and off 3-13 
SETX~—Enable/Disable Segment Indexing F-10 
SETXREG-—Set Index Register Number F-13 
Shared Overlay Sections 2-5 
shared storage 1-5 
sharing storage segments with COBOL programs 2-29 
shifting data 3-13 
SHIFTL—Shift-Left Data in a Register 5-365 
SHIFTL, using 3-13 
SHIFTR—Shift-Right Data in a Register 5-367 
SHIFTR, using 3-13 
shutdown 2-24 
SINIT-Start Initialization Section 5-369 
FINISH 5-369 
INITSEG 5-369 
SINIT, using 2-12 
sms, recording program checks in 2-27 
SMSIML 2-22 
SMSIML, message definition by 2-22 
SMSLSE 3-16 
SMSLTC 5-193 
LREAD NOWAIT 5-193 
SMSPCR program check routine flag 2-27 
SMSUIC 5-193 
SNA-Primary 5-29 
DEFLD 5-29 
EQUATE 5-29 
SPA 3-17 
SPLIT 5-23 
DEFCON 5-24 
OVLYSEC 5-24 
SEGCODE 5-24 
split programs F-1 
standard definitions 2-26 
STARTGEN 5-93 
STARTUP operand (STATION CPGEN macro) 2-24 
startup, entry point priority of 2-24 
STATION 5-27, 5-35, 5-80, 5-94, 5-147 
APCALL 5-28 
APOPT 5-27 
BEGIN 5-94 
BRANL 5-35 
DEFDEL 5-27 
DEFSTOR 5-28 
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LEXIT 5-28 
LPOST 5-28 
LSEEKP 5-35 
SETFPL 5-80 
SETSFP 5-80 
station chain dispatching 2-23 
statistical counters 5-119 
STATS--Obtain or Reset Extended Statistical Counters 5-371 
status 4-8 
status codes 1-5 
STFLD-—Store Field 5-379 
STFLD, using 3-11 
STFLDC 3-11 
STFLDC-Store Field Character 5-381 
storage allocation 2-7 | 
storage definition 2-7, 2-12 
storage definition, primary/secondary program 2-11 
storage initialization with SINIT, INITSEG, and 
ENDINIT 2-12 
storage pools 1-4 
storage segments 1-5 
storage, COBOL sharing 2-29 
storage, defining a dump work area in 3-4 
storage, initializing 2-12 
STOVLY 2-4 
STOVLY-Start Overlay 5-383 
| APOPT 5-383 
ENTRY 5-383 
EXTRN 5-383 
OVLYSEC 5-383 
STOVLY 5-383 
STP (startup) operand of BEGIN 2-24 
string control characters (SCB) 3-8 
STSEG-—Store Segment 5-385 
STSEG, using 3-11 
STSEGC 3-11 
STSEGC-Store Segment Character 5-387 
SUBFLD and SUBREG, using 3-11 
SUBFLD-Subtract Field 5-389 
SUBFLDL~Subtract Field Logical 5-391 
SUBREG-~—Subtract Register 5-393 
subroutine programming 2-1, 2-4 
subsystem library 5-67 
Subsystem Operating Procedures 1-3 
SUBZ-Subtract Zoned Decimal 5-395 
SUBZ, using 3-12 
syntax rules 4-1 
SYSAP 5-103 
DEFCON 5-103 
system configuration 1-4 
system log, program check messages in 2-27 
System Machine Segment (SMS) 2-7 
system monitor 1-3, 5-103, 5-345, G-1 
DTAFREE 5-103 
Systems Network Architecture/Synchronous Data Link 
Control (SNA/SDLC) 1-2 


T 


table definition with DEFCON 3-7 
table location, delimiter 3-2 
table lookup using LSEEK and LSEEKP 3-7 
TABLE--Define Table for LSEEK/LSEEKP 5-397 
APOPT 5-398 
LSEEK 5-397 
LSEEKP 5-397 
TABLE, using 3-4, 3-7 
tables 2-7 


tables, dispatch 2-23 

terminal interrupts, entry point priority of 2-24 
testing bits 3-13 Pe * 
TESTX—Test for Active Indexing F-15 
TF1,TF2, TF3, TF4 5-17 


Threshold Analysis and Remote Access (TARA) 5-146 


time-of-day 5-243 
time-of-day timer 3-17 
time-stamp 3-18 
timer 2-25 
timer interrupts, entry point priority of 2-24 
TRANPL 5-19 
transient 2-2, 2-4 
translating data with LTRT 3-6 
translation table 3-5 
TSTMSK--Test under Mask 5-399 
TSTMSK, using 3-13 
TSTMSKI-—Test under Mask Immediate 5-401 
TSTMSKI, using 3-13 
twos complement 5-165 
LDFLDL 5-167 


U 


underscoring 4-1 
unpacking data 3-7 
UPKFLD—Unpack Field 5-403 
UPKFLD, using 3-7 
UPKSEG—Unpack Segment 5-405 
UPKSEG, using 3-7 
USEBASE-Use a Base Register for a DSECT 5-407 
LDSECT 5-407 
USEBASE, using 3-3 
user-written macros 5-315 


V 


variable-length fields, defining 2-20 
variables 4-3 
VERIFY~—Verify 5-409 
VERIFY, using 3-6 
verifying data 3-6 
version number, specifying a program 3-2 
VIEW-—VIEW APCALL/APRETURN Stack 5-411 
APCALL 5-411 
APRETURN 5-411: 
Volume 2: Disk and Diskette Programming ili 
Volume 3: Communication Programming ili 
Volume 4: Loop and Device Cluster Adapter iv 
Volume 5: Cryptographic Programming iv 
Volume 6: Control Program Generation iv 


WwW 


work:station 2-7 
work station dispatching 2-23 
WRITI 3-17 
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YL2 and AL2 address constants, specifying 3-1 
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OVLYSEC F-3 
zoned decimal 3-11 SECTION F-3 
zoned decimal arithmetic 3-10 SEGCODE F-3 
SEGCOPY F-3 
STOVLY F-4 
3 : TABLE F-4 


3600 programs, using 2-29 


3600 Finance Communication System F-1 
APOPT F-1 
BEGIN F-1 | 4 
DEFCON F-1 
LEXEC F-1 4331 Multiuse Communication Loop protocol 1-2 
LLOAD F-2 4700 Terminals 1-2 
LSEEK F-2 
LSEEKP F-2 
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